Ошибка в программе авторизации - VB

Public Sub registraiya()
 
Dim user As String
Dim pass As String
 
user = Form2.Text1.Text
pass = Form2.Text2.Text
 
Open App.Path & "/dd1.txt" For Output As #1
    Print #1, user
    Print #1, pass
Close #1
 
MsgBox "Новый аккаунт создан", vbInformation, "регистрация"
    
    Form2.Text1.Text = ""
    Form2.Text2.Text = ""
 
End Sub
 
==============================================
 
 
Public Sub login()
 
Dim user As String
Dim pass As String
 
Dim RUser As String
Dim Rpass As String
 
 
 
user = Form1.Text1.Text
pass = Form1.Text2.Text
 
Open App.Path & "/dd1.txt" For Input As #1
    Input #1, RUser
    Input #1, Rpass
Close #1
 
If user = RUser And pass = Rpass Then
    MDIForm1.Show
Else
    MsgBox "ошибка проверте логин/пароль"
End If
End Sub