比较ASCII码
Dim t1, t2 As String
    t1 = "上海市"
    t2 = "北京市"
    If asc(t1) < asc(t2) Then
        MsgBox t1
    End If