Faça uma aplicação VBA onde o usuário entre com um Número inteiro e mostre se o mesmo é divisível exato por 3.

Sub lista_2()
'2) Faça uma aplicação VBA onde o usuário entre com um número inteiro e mostre se o mesmo é divisível exato por 3.
Dim numero As Integer
Dim mensagem As String

numero = CInt(InputBox(" Digite um valor "))
    If numero Mod 3 = 0 Then
        mensagem = " O Numero " & numero & " é Divisivel por 3"
    Else
        mensagem = " O Numero " & numero & " Não é Divisivel por 3"
    End If
 
    MsgBox mensagem
End Sub