Take a look at this thread!

It's really getting serious, and it's not just Yonatan ! My name is spelled Matthew Gates. Two t's! Not one!

Code:
'Author: Yonatan
Origin: http://forums.vb-world.net/showthrea...threadid=28673
'Purpose: Get's Matthew's name right 
'Version: VB4+ 

Private Sub cmdName_Click()

  Dim ShutUp As Boolean, MyName As String
    
    MyName = StrConv(InputBox("What's Matthew's name???"), vbProperCase)

    If Not Len(MyName) = 7 Then
        Call MsgBox("That's not Matthew's name!", vbCritical)
        Exit Sub
    End If
    
    ' I could have written: If Not MyName = "Matthew" Then ShutUp = True
    ' But I didn't! Instead, I used Left, Mid and Right, and even indented it so it can be read top to bottom.

      If Not Left(MyName, 1) = "M" Then ShutUp = True '
    If Not Mid(MyName, 2, 1) = "a" Then ShutUp = True '
    If Not Mid(MyName, 3, 1) = "t" Then ShutUp = True '
    If Not Mid(MyName, 4, 1) = "t" Then ShutUp = True '
    If Not Mid(MyName, 5, 1) = "h" Then ShutUp = True '
    If Not Mid(MyName, 6, 1) = "e" Then ShutUp = True '
     If Not Right(MyName, 1) = "w" Then ShutUp = True '
    
    If ShutUp Then
        Call MsgBox("That's not Matthew's name!", vbCritical)
    Else
        Call MsgBox("WOO! WOO! You finally got Matthew's name right! You actually typed Matthew!", vbExclamation, "Hallejuia!")
    End If

End Sub

[Edited by Matthew Gates on 09-29-2000 at 02:15 PM]