Public Function InWhatsUp(field1 As Field, field2 As Field) As String
  If (LCase(field1.Value) = LCase(field2.Value)) Then
    InWhatsUp = "True"
  Else
    InWhatsUp = "False"
  End If
 Return
End Function

InWhatsUp = (str1 = str2)

StrComp(string1, string2, vbBinaryCompare)