Hur gör man så man bara kan skriva in siffror i en textbox?

Hej
Testa det här i Textboxens KeyPress Event

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 13, 44, 45, 46, 48 To 57
'om man vill att kommatecken alltid
'skrivs som punkt
If KeyAscii = 46 Then KeyAscii = 44
Case Else
KeyAscii = 0
End Select
End Sub

Sven