استخراج فقط اعداد از textbox

[shahramm]

دارم یه برنامه برای محل کارم مینویسم که این برنامه از یه پیج از اینترنت دو تا عدد یکی 13 رقمی و یکی 15 رقمی است رو بگیره و 13 رقمی رو در textbox2 قرار بده و 15 رقمی رو در textbox3
حالا سورس اون پیج رو میگیرم و این سورس یا متن رو توی textbox1 قرار میدم ولی نمیتونم از textbox1 اعداد رو استخراج و جایگزین کنم
در ضمن میدونید که توی سورس htm هر عدد و حروف دیگه ای هم میتونه باشه ولی من فقط میخواهم اعداد 13 رقمی و 15 رقمی رو که درون textbox1 هست رو استخراج و جایگزین کنم
13 رقمی مثلآ 9012345678912 که عدد 9 در اون ثابته
15 رقمی مثلآ 502121454547874 که عدد 5 هم در اون ثابته
و یه چیز دیگه اینکه داخل اون سورس یا متن عدد 15 رقمی یه دونه و عدد 13 رقمی هم یه دونه هستش

لطفآ اکه کسی راهی رو سراغ داره که من بتونم مشکلم رو حل کنم ممنون میشم

[mpmsoft]

با این کد اگر در Textbox هم عدد و هم حروف تایپ بکنی این فانکشن که خودم نوشتم اعداد را از مابین حروف جدا می کنه


Public Function Vall(ByVal Str As String) As String
On Error Resume Next
Dim SCHRTmp, SStrTmp As String
SCHRTmp = "": Str = Trim(Str): SStrTmp = ""
Dim LAscTmp As Long
LAscTmp = 0
Dim lTmp As Long
lTmp = Len(Str)
Dim Neg As Boolean
Neg = False

If Left(Str, 1) = "-" Or Right(Str, 1) = "-" Then Neg = True
Dim i As Integer
For i = 1 To lTmp
LAscTmp = Asc(Mid(Str, i, 1))
If LAscTmp > 47 And LAscTmp < 58 Then
SCHRTmp = Chr(LAscTmp)
SStrTmp = SStrTmp & SCHRTmp
End If
Next
Vall = SStrTmp
If Neg Then Vall = "-" & Vall
End Function