Generate a Random Number

Dim MyString, MyReturn
MyReturn = 10
MyValue = Int((100 * Rnd) + 1)
MsgBox MyValue
If (MyValue = MyRetrun) Then
MsgBox " Equal"
Else
MsgBox " Not Equal"
End If