استخراج اعداد از یک تکست باکس حاوی متن

[samiasoft]

سلام دوستان

یک تکست باکسی دارم که شامل متن و اعدادی است میخواستم که فقط اعداد رو از ان استخراج کنم و در کنار هم قرار بدم.ممنون میشم راهنمایی کنید.

مثلا
http://samisoft.ir/1/images/IGjw.gif

[samiasoft]

این دستور به نظرتون همواره جواب میده؟

Val(Text1.Text)

[as.1050]

نه این دستور جواب نمیده چون صفر نشون میده. 0 رو نشون میده

[samiasoft]

فک کنم این به درستی جواب میده

Function GetNumbers(Value As String) As String
Dim Index As Long
Dim Final As String

For Index = 1 To Len(Value)
If Mid(Value, Index, 1) Like "[0-9]" Then
Final = Final & Mid(Value, Index, 1)
End If
Next

GetNumbers = Final
End Function

Text2.Text = GetNumbers(Text4)