'Estrura FOR NEXT Verifica se os multiplos 0 a 10 de um numero quai são par ou impar.

Sub tabuada()
'Estrura FOR NEXT Verifica se os multiplos 0 a 10 de um numero quai são par ou impar
    Dim numero As Integer
    numero = CInt(InputBox("Digite o Numero Desejado"))
   
    Dim cont As Integer
    Dim mensagem As String
    Dim resultado As Integer
   
        If numero > 0 And numero < 10 Then
        For cont = 1 To 10
            resultado = numero * cont
            If resultado Mod 2 = 0 Then
            mensagem = mensagem & resultado & " É Par " & Chr(13)
            Else
            mensagem = mensagem & resultado & " É Impar" & Chr(13)
            End If
        Next
    MsgBox mensagem
        Else
            MsgBox " Numero não Aceito "
        End If
End Sub