Console.Writeline("Please enter your username")
user = Console.Readline()
Console.Writeline("Please enter again")
name = Console.Readline()
If (StrComp(user, name, CompareMethod.Text)) = True Then
ValidStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
console.writeline("Enter password")
For pass = 1 To Len(Text1.Text)
If InStr(ValidStr, Mid$(Text1.Text, pass, 1)) > 0 Then
console.writeline("Valid password.")