Pemakaian IF ELSE dalam Penyelesaian Pembayaran Tagihan Air Minum Menggunakan Visual Basic dot Net

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kp.Items.Add("TOK-MED-100")
        kp.Items.Add("PAB-BEL-101")
        kp.Items.Add("SWA-BEL-102")
        kp.Items.Add("PAB-MED-103")
        kp.Items.Add("RUM-MED-104")
    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kp.Text, 3)



        If x = "100" Then
            nama.Text = "Muhammad Ardianto"
        ElseIf x = "101" Then
            nama.Text = "Jekson Sinaga"
        ElseIf x = "102" Then
            nama.Text = "Triani Arista"
        ElseIf x = "103" Then
            nama.Text = "Aldyan"
        End If


        x = Microsoft.VisualBasic.Left(kp.Text, 3)

        If x = "PAB" Then
            hargam3.Text = 500
            bbeban.Text = 250000
            Tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            hargam3.Text = 500
            bbeban.Text = 25000
            Tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            hargam3.Text = 500
            bbeban.Text = 10000
            Tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            hargam3.Text = 200
            bbeban.Text = 15000
            Tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        If x = "MED" Then
            daerah.Text = "Medan"
        ElseIf x = "BEL" Then
            daerah.Text = "Belawan"
        End If
    End Sub

    Private Sub pemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pemakaian.TextChanged
        If Asc(e.KeyChar) = 13 Then
            Ttagihan.Text = hargam3.Text * pemakaian.Text + Val(bbeban.Text)
            pajak.Text = 0.01 * Ttagihan.Text
            pembayaran.Text = Val(Ttagihan.Text) + Val(pajak.Text)
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        kp.Text = ""
        nama.Text = ""
        Tipe.Text = ""
        Ttagihan.Text = ""
        hargam3.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        pemakaian.Text = ""
        daerah.Text = ""
        bbeban.Text = ""
    End Sub
End Class