Example:

1. Sub Main

   1. Dim MStr1, MStr2, MComp

      MStr1 = "ABCD": MStr2 = "today"' Define variables.

      print MStr1, MStr2

      MComp = StrComp(MStr1, MStr2)' Returns -1.

      print MComp

      MComp = StrComp(MStr1, MStr2)' Returns -1.

      print MComp

      MComp = StrComp(MStr2, MStr1)' Returns 1.

      print MComp

   End Sub