If KeyAscii>=1 And KeyAscii<=26[\code]
 
Man muss nur aufpassen, weil hier wahrscheinlich nicht 1 bis26 gemeint ist, _
  sondern ich schätze mal, hier sollen Buchstabeneingaben ausgefiltert werden ( _
  also in den Ascii Code umwandeln bzw. Asc("A")-1 dazuaddieren. Groß- und _
  Kleinbuchstaben müsste man extra behandeln.
Der Rest des Codes (Aus Punkt Komma machen) müsste so funktionieren.
 
Ausfiltern aller Zeichen, die nicht zulässig sind, funktioniert mit
<pre><code> Private Sub Text1_KeyPress(KeyAscii As Integer) 
 If InString("1234567890." + Chr(8), Chr(KeyAscii))=0 Then KeyAscii=0 
 End Sub