Source Code Program Login Di VB

Private Sub CmdMasuk_Click()
If Txt1.Text = "RAHMAD HIDAYAT" Then
MsgBox ("Password kamyu Rahmad benar.....Mantap Kamyu,,,?")
Else
MsgBox ("Password kamyu Rahmad SALAH...,,,?")
End If
If Txt2.Text = "1005010076" Then
MsgBox ("Nama kamyu Rahmad Benar.....Coba Lagi,,,?")
Else
MsgBox ("Nama kamyu Rahmad Salah.....Coba Lagi,,,?")
End If
End Sub

Private Sub CmdKeluar_Click()
Txt1.SetFocus
Txt1.Text = ""
Txt2.Text = ""
End Sub