気になったのでとりあえず作ってみる。
ところで"AA"と"AAA"ではどっちが大きくなるの？
ここでは"AAA"の方を大きくしている。
同じときには"同じ"を返すようにしてる。
= 比較("aaa","bb")

Function 比較(A As String, B As String) As String
　Dim c As Integer, i As Integer, Ok As Byte
　If A = B Then 比較 = "同じ": Exit Function
　If Len(A) > Len(B) Then
　　c = Len(B): 比較 = B
　Else
　　c = Len(A): 比較 = A
　End If
　Ok = 0
　For i = 1 To c
　　If Asc(Mid(A, i, 1)) <> Asc(Mid(B, i, 1)) Then
　　　If Asc(Mid(A, i, 1)) > Asc(Mid(B, i, 1)) Then
　　　　比較 = A
　　　Else
　　　　比較 = B
　　　End If
　　　Ok = 1
　　End If
　　If Ok = 1 Then Exit For
　Next i
End Function