cara lain membuat pasword dalam visual basic

Private Sub Command1_Click()

'jika text1 dimasukkan kata princeiva.blogspot.com maka'

If Text1.Text = "princeiva.blogspot.com" Then

'menutup form aktif'

End

'jika tidak'

Else

'akan tampil kotak pesan'

MsgBox "Password Anda Salah..!", vbOKOnly, "Kotak Pesan"

'saat kotak pesan ditekan ok, text1 dikosongkan'

Text1.Text = ""

'kursor focus pada text1'

Text1.SetFocus

End If

End Sub