arkadaşlar textboxa girilen harf ve sayılardan sadece sayıları ayırıp başka textboxa aktarmak için gerekli kodları bilen varmı? örn:a^+%236lk bu ifadeden 236 alıp başka textboxa aktarabilirmiyiz...?
Private Sub Command1_Click()
Dim Alcelect As Integer
Text2.Text = ""
For Alcelect = 1 To Len(Text1.Text)
If IsNumeric(Mid(Text1.Text, Alcelect, 1)) Then
Text2.Text = Text2.Text & Mid(Text1.Text, Alcelect, 1)
End If
Next Alcelect
End Sub