Из строки вытащить нужную часть

Dim n as string = "бла бла бла 000[нужная_часть_без_пробелов] бла бла бла" ' выражение нужное без [] находится. Набор символов "000" уникален в строке, по нему можно ориентироваться
'код
Dim m as string = "нужная_часть_без_пробелов"   'Нужно это получить

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim n As String = "бла бла бла 000[нужная_часть_без_пробелов] бла бла бла"
        MsgBox(_RegEx(n, "(.*?[0-9]{3}\[(.*?)\].*?)", 2))
    End Sub
 
    Private Function _RegEx(ByVal text As String, ByVal template As String, Optional ByRef index As Integer = 0) As String
        Return New Regex(template).Match(text).Groups(index).Value
    End Function

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
     Dim str As String = "бла бла бла 000нужная_часть_без_пробелов1 бла бла бла 000нужная_часть_без_пробелов2"
     Dim ss() As String = str.Split(" "c)
     Dim fStr() As String = Array.FindAll(Of String)(ss, AddressOf fnd000)
     For Each item As String In fStr
         MsgBox(item.Substring(3) & vbCrLf)
     Next
 End Sub
 Private Shared Function fnd000(ByVal s As String) As Boolean
     If s.Substring(0, 3) = "000" Then
         Return True
     Else
         Return False
     End If
 End Function

Public Function FindText(ByVal aText As String, ByVal bText As String)
        Dim i As Integer, s As Object
        s = Split(aText, " ")
        For i = 0 To UBound(s)
            If InStr(s(i), bText) > 0 Then
                MessageBox.Show(s(i))
                Exit Function
            End If
        Next
End Function

FindText("бла бла бла 000[нужная_часть_без_пробелов] бла бла бла", "000")