Validar una String en Vb6

[pana99]

Correcto ese es el error
De tdas formas tambien es conveniente declarar las variables

Código:

Dim usr As String, pass As String
        usr = "usuario"
        pass = "pass"
        If txtUsr.Text = usr And txtPass.Text = pass Then
            MsgBox "Bienvenid@ " & usr, vbInformation, "Bienvenid@!"
            frmMenu.Show
            frmMain.Hide
         End If