Te traigo una solucion simple:
Crea un Modulo1 y declara
En el form FormComprobarUsuario
Private Sub cmdValidar_Click()
If txtusuario.text="TuUsuario" and txtpass.text="Tupass" Then
logueo = 1
Else
logueo = 2
End If
Unload Me
End Sub
Private Sub Form_Load()
logueo= -1
End Sub
Y en el boton que llames al FormComprobarUsuario pones
dim f as form
set f=new FormComprobarUsuario
f.show 1
Select Case logueo
case -1
msgbox "Cancelado"
case 1
msgbox "Logueado"
case 2
msgbox "No Logueado"
End Select
Me funcionó bien, pero no se si eso es lo que buscabas