Public Sub Main ()
AllCaps = "JOHN"
NoCaps = "john"

If AllCaps = NoCaps then 		' Now they are evaluated as the same
  Debug.Print "These are the same name."
Else
   Debug.Print "These are not the same name."
End If
End Sub