Como escrever o programa Fizz Buzz em VBA - Peça para o usuário informar um número inteiro e escreva "Fizz" se o número for - Desafio de Programação Resolvido em VBA

Informe um número: 20
Buzz

Informe um número: 15
Fizz Buzz

Informe um número: 9
Fizz

Informe um número: 14
O número é: 14

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Macro Excel VBA para resolver o programa Fizz Buzz
Sub FizzBuzzVBA()
  ' variáveis usadas na resolução do problema
  Dim numero As Integer
      
  ' vamos pedir para o usuário informar um número
  numero = InputBox("Informe um número: ", "Fizz Buzz em VBA", 0)
    
  ' o número é múltiplo de 3 e 5 ao mesmo tempo?
  If (numero Mod 3 = 0) And (numero Mod 5 = 0) Then
    MsgBox "Fizz Buzz"
  ' o número é múltiplo de 3?
  ElseIf numero Mod 3 = 0 Then
    MsgBox "Fizz"
  ' o número é múltiplo de 5?
  ElseIf numero Mod 5 = 0 Then
    MsgBox "Buzz"
  ' vamos mostrar o número
  Else
    MsgBox "O número é: " & numero
  End If
End Sub