This one has me stumped.

I have a VB Script that is as follows:
if "~~~" <"~A~" then
msgbox("~~~ comes before ~A~")
else
msgbox("~A~ comes before ~~~")
end if

When I execute the script it returns "~A~ comes before ~~~". This is correct.

But when I put "~~~" and "~A~" in an Excel spreadsheet and sort them, it
lists as follows:
~~~
~A~

I have verified my sorting options in data sort sort options.

Why is VB Script sorting one way and Excel sorting another?
Thanks in advance!!