[مجهول]

السلام عليكم ورحمة الله وبركاتة 
والصلاة والسلام على نبينا محمد 
كيفكم ان شاء الله تكونو في افضل حال . 
ي جماعة الخير 
انا حاولت اسوي كود يستخرج User-Pass من بين كلمات 
فمثلا 
[ aaaaa  nnnn:nnnn aaaa ] 
بيسحب nnnn:nnnn فقط اما الباقي يتجاهله
المهم 
المشكلة انه لو في كلمات فوقه ما تتضمن  : يسحب اخرها .. 
اتوقع محد فهم 
هاذي صوره



ذي الاكواد 

كود :

       Me.TextBox9.Clear()
       Me.Label20.Text = "0"
       Try
               Dim input As String = TextBox10.Text
               Dim regex As New Regex("([\w.-]+[^:.&\~ ]{4,}:[\w+]+[^@&\~ ]{1,})")
               Dim matchs As MatchCollection = regex.Matches(input)
               Dim enumerator As IEnumerator = matchs.GetEnumerator
               Dim builder As New StringBuilder
               Do While enumerator.MoveNext
                   Dim current As Match = DirectCast(enumerator.Current, Match)
                   builder.AppendLine(current.ToString)
               Loop
               If TypeOf enumerator Is IDisposable Then
                   TryCast(enumerator, IDisposable).Dispose()
               End If
               Me.TextBox9.Text = (Me.TextBox9.Text & builder.ToString)
       Catch ex As Exception
       End Try
   End Sub