From: james.hill83@verizon.net   
      
   Try this for allowing only numeric input into a text box:   
      
   Private Sub Text1_KeyPress(KeyAscii As Integer)   
   Const iNumber = "1234567890"   
   If InStr(iNumber, Chr(KeyAscii)) <> 0 Then   
   Exit Sub   
   Else   
   KeyAscii = 0   
   End If   
   End Sub   
      
   The Keypress method of the textbox is called when you type in anything.   
   Setting the value of KeyAscii to 0 kills the enter.   
   "hennie"  wrote in message   
   news:cs8ql0$ele$1@reader08.wxs.nl...   
   > Hello,   
   > I've define a TextBox As Byte. Only numeric can be the input. I have made   
   a   
   > ErrorCheck().   
   > The problem next:   
   >   
   > If Val(Form1.txtText1.Text) "This is the problem" is not a byte Then   
   > etc.   
   >   
   > What do i have to fill in by: This is the problem is not a byte   
   >   
   > I have try <> Byte, but this doesn't work.   
   > I can the input define As String or something but I want only numeric that   
   > can input.   
   >   
   > Can someone help me, Thanks   
   >   
   >   
   >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)