Visual Basic - Como compruebo valores!?

Hola, de antemano gracias por dar una leida a esto, pero bno mi problema es el siguiente:
tengo que hacer un programa que me diga si X numero es multiplo de 7 (P.ej. 14 28 42 49, etc hasta el infinito), trate de hacerlo con un while y un loop pero al final no sirvio nada de lo que he intentado, espero alguno de ustedes pueda ayudarme a resolver esto a labrevedad, de antemano muchas gracias :D. . . bn dia :D

Sub test()
Dim r&, x&
x = 14
r = x Mod 7
If r = 0 Then
MsgBox x & " es múltiplo de 7"
Else
MsgBox x & " NO es múltiplo de 7"
End If
End Sub

Saludos desde Baires, JuanC