How to find the given number is even number or odd number using QTP

By using qtp vb script........
How to find the given number is even number or odd number

Dim num
num=inputbox("Enter a value")
If num mod 2=0 Then
    msgbox "This is an even number"
    else
    msgbox "This is an odd number"
End If
4+ experience, automation tools, manual testing, qc, qc tutorial, qtp, qtp 10, test director, script, sdlc, selenium, types of testing., valodation, verification, UFT,