the 11mbps wireless sucks, wireless sucks in general, unless you just surf the internet. When you try to multitask with wireless it just craps out. Nothing you can do about it, except make holes in the walls for a cable

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