Visual Basic 6 - Vorrei un aiuto nel sostituire parti di frasi

Salve
Io ho una frase inserita in una textbox1
es: (^2topo in ^5trapp^7ola) e che tramite un bottone
la frase vada in textbox2 ma senza i caratteri ^+numero i numeri vanno da 0 a 9,
in moda che in textbox2 risulta solo la frase filtrata "topo in trappola"


e che fantasia nell scegliere la frase

spero che mi sono spiegato bene

fai un controllo lettera per lettera (con mid)
se vuoi il codice in basso. prova prima tu.
lo posto solo perchè l'ho scritto al volo senza vb6 su questo pc























ho distinto tutti i casi così puoi metterci dei casi se vuoi

for x = 1 to len( text1.text )
if mid( text1.text , x , 1 ) = "^"
elseif mid( text1.text , x , 1 ) = "1"
elseif mid( text1.text , x , 1 ) = "2"
elseif mid( text1.text , x , 1 ) = "3"
elseif mid( text1.text , x , 1 ) = "4"
elseif mid( text1.text , x , 1 ) = "5"
elseif mid( text1.text , x , 1 ) = "6"
elseif mid( text1.text , x , 1 ) = "7"
elseif mid( text1.text , x , 1 ) = "8"
elseif mid( text1.text , x , 1 ) = "9"
else
text2.text = text2.text & mid( text1.text , x , 1)
end if
next x 

Grazie mille P4p3r0g4

100% funzionante
e meno male che lo hai scritto al volo

Un metodo un po' piu' elegante e piu' veloce e' usare Replace.

TextBox1 = Replace(TextBox1, "^", Chr(0)) 
Textbox1 = Replace(TextBox1, "0", Chr(0))
...
TextBox2 = TextBox1

Replace ha questa definizione:

Public Function Replace(
ByVal Expression As String,
ByVal Find As String,
ByVal Replacement As String,
Optional ByVal Start As Integer = 1,
Optional ByVal Count As Integer = -1,
Optional ByVal Compare As CompareMethod = CompareMethod.Binary
) As String

Ammetto che non lo conoscevo..
è decisamente + semplice