se proprio non puoi usare una valuebox....
in meteomachine usavo questa funzione:
PUBLIC SUB controllo(stringa AS String) AS String
DIM lettera AS String
lettera = Right(stringa, 1)
IF lettera <> "" THEN
SELECT CASE lettera
CASE "0" TO "9"
lettera = lettera
CASE ","
lettera = "."
CASE "."
lettera = "."
CASE "-"
lettera = "-"
CASE ELSE
lettera = ""
END SELECT
stringa = Left(stringa, Len(stringa) - 1) & lettera
ENDIF
RETURN stringa
END
che veniva chiamata con:
PUBLIC SUB TextBox2_Change()
TextBox2.Text = controllo(TextBox2.Text)
END
il codice lascia anche inserire alcuni segni...modifica la funzione come serve a te