Sub Main 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