Controllo immissione in TextBox

[ivosperi]

Ciao
Vorrei controllare che in un text box vengano inseriti solo numeri e il punto in vb usavo aualcosa del genere

Codice: [Seleziona]

Sub text_keypress (Index as Integer, KeyAscii as Integer)
  if KeyAscii >= 48 And KeyAscii <= 57 Then exit sub
  if KeyAscii = 8 Then exit sub
  if Chr$(KeyAscii) = "." Then exit sub
  KeyAscii = 0
End Sub

Consigli???

Ciao ivo

[ivosperi]

PS. ho bisogno di questo controllo perché utilizzo questa procedura:

Codice: [Seleziona]

PUBLIC SUB TextQuant_LostFocus()
  IF LAST.text <> "" THEN 
    LAST.text = Format$(LAST.text, "#.00")
  END IF
END

... e se si inseriscono virgole o lettere da errore.
Forse potrei inserire anche un controllo del tipo:

> Se da errore non formattare :idea:

Ciao

Usa la valuebox .....