Índice

Solución 4.3 Controlar la introducción de una consonante o una vocal

Sub ConsonanteVocal()  
    Dim strConsonante As String * 1 
    Dim strVocal As String * 1 
    Dim varTestEntrada As Variant 
    Dim varEleccion As Variant 
    varTestEntrada = InputBox("Introduzca una consonante o una vocal") 
    If Not VBA.IsNumeric(varTestEntrada) Then 
        varEleccion = VBA.UCase(varTestEntrada) 
     ...