Visual Basic - contraseña

tengo el siguiente codigo pero no se por que no me funciona como yo quiero

Dim nom, con, a As Variant

Private Sub cmdcontinuar_Click()
nom = Text1
con = Text2
nom = UCase(nom)'UCase devuelve puras mayusculas
con = UCase(con)
If nom = GUSTAVO And con = CONTRASEÑA Then
Form2.Show
Unload Me
Else
acept = MsgBox("Lo siento los datos introducidos son erroneos", vbOKOnly)
End If

End Sub
esto te lleva a otra pantalla pero al introducir los datos correctos no me deja avansar pero si no anoto nada en los text si me lleva al form2

Cambiale esto:
Dim nom, con, a As Variant

Private Sub cmdcontinuar_Click()
nom = Text1
con = Text2
nom = UCase(nom)'UCase devuelve puras mayusculas
con = UCase(con)
If Trim(nom) = "GUSTAVO" And Trim(con) = "CONTRASEÑA" Then
Form2.Show
Unload Me
Else
acept = MsgBox("Lo siento los datos introducidos son erroneos", vbOKOnly)
End If
End Sub
Lo estaba tomando como variables GUSTAVO Y CONTRASEÑA por eso cuando no ponias nada entraba era por que esas variables estaban vacias siempre que quieras comporarlo con alguna cadena debes poner "valor".
Saludos!!!