Example:
OptionCompare Text
Sub main
Dim i As Integer
i = StrComp("3 A", "3- B", vbTextCompare)
MsgBox i
End Sub