Example - StrComp Function

Sub Main()
   Dim MStr1, MStr2, MComp
   MStr1 = "ABCD": MStr2 = "today" ' Define variables.
   MsgBox MStr1, MStr2
   MComp = StrComp(MStr1, MStr2) ' Returns -1.
   MsgBox MComp
   MComp = StrComp(MStr1, MStr2) ' Returns -1.
   MsgBox MComp
   Msg = StrComp(MStr2, MStr1) ' Returns 1.
   MsgBox Msg
End Sub