decir si un carácter es vocal, consonante, número o signo de puntuación

[lokoman]

Hola otra vez!

Completa el codigo con los signos que falten:

Código vb:

Private Sub Command4_Click()
    Dim Caracter
    
    Caracter = InputBox("Entre caracter: ")
    
    If IsNumeric(Caracter) = True Then
        MsgBox "Es un numero"
        Exit Sub
    End If
    
    If LCase(Caracter) = LCase("A") Then
        MsgBox "Es una vocal"
    Else
        If LCase(Caracter) = LCase("E") Then
            MsgBox "Es una vocal"
        Else
            If LCase(Caracter) = LCase("I") Then
                MsgBox "Es una vocal"
            Else
                If LCase(Caracter) = LCase("O") Then
                    MsgBox "Es una vocal"
                Else
                    If Caracter = LCase("U") Then
                        MsgBox "Es una vocal"
                    End If
                End If
            End If
        End If
    End If
    
    If Caracter = "." Then
        MsgBox "Es un signo de puntuacion"
    Else
        If Caracter = ":" Then
            MsgBox "Es un signo de puntuacion"
        Else
            If Caracter = "," Then
                MsgBox "Es un signo de puntuacion"
            End If
        End If
    End If
End Sub