جدا کردن شماره های با فرمت خاص از رشته با REGEX

[arash020]

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

خودم کدی براش نوشتم ولی مشکل داره و درست کار نمیکنه...!

این تکه کدیه که خودم نوشتم برای جدا کردن شماره موبایل ها از فایل:

    Dim s = Web_tel.Document.Body.InnerText.ToLower.TrimStart



        Dim mc_tel As MatchCollection = Regex.Matches(s, "([0912]+)([ -][0-9]{11,20})")

        

For i = 0 To mc_tel.Count - 1

            List1_tel.Items.Add(mc_tel(i).Value)

        Next

میشه کمکم کنید؟

فایل ضمیمه

[asghar2008]

سلام دوست عزیز

 Dim value As String = "/content/09122222rnate-1.aspx"



        ' Invoke the Match method.

        Dim m As Match = Regex.Match(value, "0912([0-9]+)", RegexOptions.IgnoreCase)

        If m.Success Then

            lst.Items.Add(m.Value)

        End If