VBS、WinXP
ランダムの数値を当てるようなゲームを作っているのですが、
うまくいきません。
入力ボックスに何を入れてもBのほうが大きいと判定されます。
キャンセルの場合、Aのほうが大きいと判定されます。
どこが悪いのでしょうか。ソースを書いておきます。
よろしくお願いします。

randomize
dim a,b
a=int(rnd*1000)
b=inputbox("A=" & a & " B=?")
If a=b Then
MsgBox("AとBは同じ。\n\nA=" & a & " B=" & b )
ElseIf a < b Then
MsgBox("Bのほうが大きい。 A=" & a & " B=" & b)
ElseIf a > b Then
MsgBox("Aのほうが大きい。 A=" & a & " B=" & b)
Else
MsgBox("それ以外")
End If