Dim User As String
Dim Pass As String
If txtNewUserName.Text = "" Then
MsgBox "No User entered, please try again!", , "User"
txtNewUserName.SetFocus
SendKeys "{Home}+{End}"
Else
If txtNewPassword.Text = "" Then
MsgBox "No password entered, please try again!", , "Password"
txtNewPassword.SetFocus
SendKeys "{Home}+{End}"
Else
'Write new name and password to file and close document.
User$ = txtNewUserName.Text
Pass$ = txtNewPassword.Text
Open App.Path & "\User.txt" For Output As #1
Write #1, User$, Pass$
Close #1
Me.Hide
frmLogin.Show
End If
End If

Dim User As String, Pass As String
Open App.Path & "\User.txt" For Input As #1
Input #1, User$, Pass$
Close #1
If txtUserName.Text = User$ And txtPassword.Text = Pass$ Then
Me.Hide
Form1.Show
Else
MsgBox "Invalid UserName or Password, try again!", , "Login"
cmdOK.SetFocus
SendKeys "{Home}+{End}"
End If