Números múltiplos

Olá, tudo bom?

Estou fazendo um trabalho de faculdade e o mesmo quer saber o seguinte:

"Receber por digitação um número e informar se o mesmo é múltiplo de 3, 4 ou de 5."

Fiz um código mas ele se limita ao que eu defini:

>
Dim num1 As Integer

num1 = InputBox("Digite um número: ")

If num1 = 3 Or 6 Or 9 Or 12 Or 15 Or 18 Or 21 Or 24 Or 27 Or 30 Then

MsgBox("Este número é múltiplo de 3")

ElseIf num1 = 4 Or 8 Or 12 Or 16 Or 20 Or 24 Or 28 Or 32 Or 36 Or 40 Then

MsgBox("Este número é múltiplo de 4")

ElseIf num1 = 5 Or 10 Or 15 Or 20 Or 25 Or 30 Or 35 Or 40 Or 45 Or 50 Then

MsgBox("Este número é múltiplo de 5")

End If

O que quero saber é como eu deixo esses números ilimitados, por que como podem ver, eu não sei fazer sem definir quais os números que o usuário tem que digitar.

Obrigado,

KNukem