if asc(Variabile)>= 48 and asc(Variabile)<= 57 then
'numero
elseif asc(Variabile)>= 97 and asc(Variabile)<= 122 or if asc(Variabile)>= 65 and asc(Variabile)<= 90 then
'lettera
end if


solo che la variabile deve contenere solo un carattere

altrimenti per verificare se una variabile contiene un numero
if IsNumeric(Variabile) then