Hola, aparte de verificar si la contraseña escrita es correcta, deberias comprobar q el usuario no ingrese una cadena vacía por ejemplo:
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "Ingrese una contraseña válida"
End If
End Sub
o si se trata de un textbox q solamente ingresá numeros y el usuario ingresa letras podes comprobar el ingreso de esta forma:
Private Sub Command1_Click()
If Not IsNumeric(Text1) Then
MsgBox "Ingrese únicamente números"
End If
End Sub
en el caso de q solamente se ingrese texto y el usuario ingrese números hace lo mismo q lo anterior pero sin el Not:
Private Sub Command1_Click()
If IsNumeric(Text1) Then
MsgBox "Ingrese únicamente letras"
End If
End Sub
Hay varias formas de verificación queda despues a tu elección.
Saludos.