Private Sub Command1_Click()
Dim Pass As String
Dim Temp As String
    nFic = FreeFile
    Open "C:\a.txt" For Input As nFic
    Do Until EOF(nFic)
    Input #nFic, Temp
    Text1.Text = Text1.Text + Temp
    Pass = Text1.Text
  Loop
     Close nFic
 
    If Pass = "x" Then
        Form2.Show
    Else
        MsgBox "Error, vuelva a intentarlo", vbCritical
        End
    End If
End Sub

Private Sub Command1_Click()
Dim Pass As String 'variable de tipo cadena que almacena el password
Dim Temp As String 'variable tipo cadena que va almacenando datos del fichero que se importa
    nFic = FreeFile 'liberamos el canal del fichero nFic
    Open "C:\a.txt" For Input As nFic 'Abrimos el archivo, AQUÍ ES DONDE PONES LA RUTA
    Do Until EOF(nFic) ' Esto es un bucle que lee el fichero hasta que llegue al final del fichero
    Input #nFic, Temp ' Importas  lo que va leyendo el fichero a la variable temp
    Text1.Text = Text1.Text + Temp ' por eso aqui hacemos text1.text = text1.text + temp (lo importado del fichero)
  Loop
     Close nFic
    Pass=Text1.Text ' Ahora lo que hemos importado del fichero lo almacenamos en la variable Pass
    If Pass = "x" Then ' Y ahora si el pass coincide con lo introducido por el usuario, en este caso "x"
        Form2.Show ' entonces mostramos el form2
    Else
        MsgBox "Error, vuelva a intentarlo", vbCritical 'sino tiramos error y cerramos el programa
        End
    End If
End Sub

Private Sub Command1_Click()
Dim Pass, ruta As String
Dim Temp As String
ruta = "C:\LOKEKIERAS" ' AKI PONES LA RUTA DEL ARCHIVO QUE QUIERAS COMPROBAR
    nFic = FreeFile
    Open ruta For Input As nFic
    Do Until EOF(nFic)
    Input #nFic, Temp
    Text1.Text = Text1.Text + Temp
  Loop
     Close nFic
    Pass = Text1.Text
    If Pass = "x" Then ' ESTA X LA SUSTITUYES POR LO QUE QUIERAS QUE COMPRUEBE QUE PONE EN EL FICHERO
        Form2.Show
    Else
        MsgBox "Error, vuelva a intentarlo", vbCritical
        End
    End If
End Sub