'Verificar se um Numero é divisivel por 3 " (mod 3 = 0) "

Sub procMult3()
'Verificar se um numero é divisivel por 3 " (mod 3 = 0) "
Dim num As Integer
Dim mensagem As String
   num = Val(InputBox("Escreva um Numero", "Número num"))
 
   If (num Mod 3 = 0) Then
    mensagem = "Numero é Multiplo de (3) TRES   "
   Else
    mensagem = "Não é Multiplo de (3) TRES  "
   End If
    MsgBox mensagem & num
End Sub