Разделение на несколько символов не так сложно; есть перегрузки метода String.Split, который делает это:
Dim input As String = "##RES00012## Some value ##RES00034## Another value"
Dim parts As String() = input.Split(New String() {"##RES"}, StringSplitOptions.RemoveEmptyEntries)
Это даст вам массив с двумя элементами:
"00012## Some value "
"00034## Another value"
Однако разделитель исключен. Это не слишком сложно, хотя; он должен быть добавлен перед каждым из элементов (кроме первого, если строка не начинается с разделителя):
Dim input As String = "##RES00012## Some value ##RES00034## Another value"
Dim parts As String() = input.Split(New String() {"##RES"}, StringSplitOptions.RemoveEmptyEntries)
For i As Integer = 0 To parts.Length - 1
If i > 0 OrElse input.StartsWith("##RES") = True Then
parts(i) = "##RES" & parts(i)
End If
Next