coding Chek Out pada VB

Chek Out :
Dim sngJumlah, sngLamaMenginap
Private Sub Command1_Click()
If (Text3.Text > 200000) Then
sngJumlah = Text3.Text * Text4.Text
End If
Text5.Text = sngJumlah
End Sub
Private Sub Text1_GotFocus()
Text1.Text = " "
End Sub
Private Sub Text2_Change()
intPilihan = Text2.Text
Select Case intPilihan
Case 1: Text3.Text = "Rp700000"
Case 2: Text3.Text = "Rp500000"
Case 3: Text3.Text = "Rp200000"
Case Else: Text3.Text = "Pilihan Salah"
End Select
End Sub