¿Cómo configurar la contraseña de la cuenta en VB?

Private Sub Command1_Click()

Si Text1.Text = "nombre de usuario" y Text2.Text = "contraseña" Entonces 'La cuenta es nombre de usuario y la contraseña es contraseña

MsgBox "Entrada correcta", vbInformation, "Preguntar"

Descargarme

Form2.Show

Else

MsgBox " Número de cuenta o Contraseña incorrecta", vbCritical, "Prompt"

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

Finalizar si

End Sub

Sub privado Form_Load()

Text1.Text = ""

Texto2. Texto = " "

Comando1.Caption = "Iniciar sesión"

Fin Sub