code to find multiple of 7 using vb script

Option Explicit
Dim num
num=Inputbox("Enter a number")
If num mod 7=0 Then
Msgbox "The given number is a multiple of 7"
Else
Msgbox "The given number is not a multiple of 7"
End If