Dim fullcode As String = "" ' hier dann halt den Quellcode rein
Dim editstep1 As String = fullcode.substring(fullcode.IndexOf("ChrisScript") + _
  13)
Dim editstep2 As String = editstep1.substring(editstep1.IndexOf("</script>"))
Dim ergebniszeilen() As String = editstep2.Replace("<!--" & _
  System.environment.newline,"").Replace(System.environment.newline & _
  "-->","").trim().split(System.Environment.NewLine)