VBScript code in QTP to find given number is ever or odd

Option explicit

Dim x

x=inputbox("Enter Number :")

If x mod 2 = 0 Then

    msgbox(x&" is Even number")

    else

       msgbox(x& " is Odd number")

End If