Am einfachsten
select case Zeichen
case &H30 to &H39: ' numerisch 0 - 9
case else: ' NICHT numerisch
end select
Überhaupt, wenn du bei PC-EIngaben sowieso Verschiedenes abfragen mußt