Shoutbox

code:

---

Dim strUsername, strPassword as string

Open "text1.text" For Input As #1
Do Until EOF(1)
     Input#1, strUsername, strPassword
     If strUsername = txtUsername And strPassword = txtPassword Then
          'Do stuff if password and username match
          Exit Do
     End If
Loop
Close#1

---