Travel Agency, Vb

Code:
Private Sub proses_Click()
Dim kd As String
kd = UCase(kdtiket.Text)
Select Case kd
Case "A11":
klstiket.Text = "VIP"
hrgtiket.Text = 1000000
Case "B12":
klstiket.Text = "ekonomi"
hrgtiket.Text = 500000
Case "C13":
klstiket.Text = "bisnis"
hrgtiket.Text = 300000
End Select

total.Text = jlhtiket.Text * hrgtiket.Text
If klstiket = "VIP" And total > 5000000 Then
diskon.Text = 10 / 100 * total.Text
Else
If klstiket = "ekonomi" And total > 3000000 Then
diskon.Text = 5 / 100 * total.Text
Else
diskon.Text = 0
End If
End If
bayar.Text = total.Text - diskon.Text
End Sub