Visual Basic 6 - textbox che accetta solo numeri decimali

ho bisogno che una textbox acceti solo numeri decimali e nessun altro carattere...
grazie...

Ho risolto...

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr$(KeyAscii)) = 0 Then KeyAscii = 0
End Sub