Imports System.Text.RegularExpressions
 
Module Module1
 
    Sub Main()
        Dim Text As String = "HalloHierIstNeSuperTolleZeichenKetteWelt"
        Dim Teile As String() = Regex.Split(Text, "(" & _
          "HierIstNeSuperTolleZeichenKette)")
 
        For Each StrTeil As String In Teile
            MsgBox(StrTeil)
        Next
    End Sub
 
End Module

Jedes Programm,
in das sich ein Fehler einschleichen kann,wird auch einen enthalten.