Visual Basic 6 - Inserimento di soli numeri in una TextBox

ciao...mi sevirebbe una mano...

voglio ke nell mie TextBox si possano inserire solo numeri e non caratteri, e nel caso si inserirebbero caratteri il programma deve solo cancellare quel carattere lì. Il tutto nll'evento Change della TextBox.

Il mio metodo (ke tra l'altro non è neanke mio) è così: Private Sub txtprogramma_Change()
Dim car As String
If Text1.Text <> "" Then
If Len(Text1.Text) <> 0 Then
car = Asc(Mid(Text1.Text, Len(Text1.Text), 1))
If car < 48 Or car > 57 Then
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
End If
End If
Text1.SelStart = Len(Text1.Text)
End If
End Sub
Il problema che ha questo "mio" codice è questo: il cancellamento dell'eventuale carattere inserito avviene olo se il carattere viene inserito al fondo di tutta la strinha (come ultimo carattere); mentre se lo inserico in un'altra qualsiai posizione, non avviene il cancellamento,...
Io nn so cm spiegarlo in un altro modo; se mi avete capito e mi potete aiutare....aiutatemi...pleaseee
Grazie

for x = 1 to len( text1.text )
if mid( text1.text , x , 1 ) = "0" or mid( text1.text , x , 1 ) = "1" or mid( text1.text , x , 1 ) = "2" or mid( text1.text , x , 1 ) = "3" or mid( text1.text , x , 1 ) = "4" or mid( text1.text , x , 1 ) = "5" or mid( text1.text , x , 1 ) = "6" or mid( text1.text , x , 1 ) = "7" or mid( text1.text , x , 1 ) = "8" or mid( text1.text , x , 1 ) = "9"

else
Text1.text = Replace(Text1.text, mid( text1.text , x , 1), Chr(0))
end if
next x

oppure fai un replace di tutti i caratteri diversi dai numeri.

grazie...ma così..nn fa proprio qll ke voglio..io: se provo a mettere un carattere NON in ultima posizione, questo codice fa si ke mi cancelli tutti i numeri scritto dopo....
esempio:
ho quetso contenuto nella TextBox: 2548
1) se metto un carattere dopo l'8 , è tutto ok.. come anke il mio;
2) se lo metto x esempio tra i 5 e il 4, il carattere non viene messo, ma mi cancella il 4 e l'8.

cm posso fare?

e un
for x = 1 to 46
text1.text=replace(text1.text,Chr(x),""
next x
for x = 58 to 255
text1.text=replace(text1.text,Chr(x),""
next x

ok grazie PaP;

nada
xò così è un po lento ogni volta che inserisci un carattere fa 245 operazioni.. cerca di sveltire la procedura.

perchè proprio nell'evento change?

pensavo che facessi un programma che automaticamente togliesse il carattere..