Hola buen dia, vengo a ustedes para recibir un poco de ayuda. Este es mi problema:

Necesito extraer palabras de un textbox que contengan ":" , no importa su lugar, al final o al inicio aunque generalmente van al centro. Se me ocurrio lo siguiente:

Código:
Dim sel1, sel2, lock As Integer

            lock = 0
            sel1 = 0
            sel2 = 0
            Dim text As String = TextBox4.Text
            Dim n As String = ""
            For i = 0 To (Len(text)) - 1
                If i <> (Len(text) - 1) Then
                    If (text.Substring(i, 1).ToString = " ") And lock = 0 Then
                        sel1 = i + 1
                    ElseIf (text.Substring(i, 1).ToString = ":") Then
                        lock = 1
                    ElseIf (text.Substring(i, 1).ToString = " ") And lock = 1 Then
                        sel2 = i
                        Exit For
                    End If
                Else
                    If sel2 = 0 Then
                        sel2 = text.Length
                    End If
                End If
            Next

            n = text.Substring(sel1, (sel2 - sel1))
            TextBox5.Text = n
Pero esto solo me toma la primer palabra del textbox porque me lo reconoce como una sola linea, como podria generar un bucle para cada linea y me tome todas las palabras de un textbox mas o menos asi;

test "analog/j5:pin6"
test "analog/j5:pin7"
test "analog/j5:pin8"
test "analog/j5:pin9"
test "analog/j5:pin10"
test "analog/j5:pin11"

Deberia arrojarme:
"analog/j5:pin6"
"analog/j5:pin7"
etc..
etc..
Gracias de antemano.