Dim hts As String = "Abfragen mit Funktionen°Die" & _
          "Datenbankabfragesprache SQL°Daten analysieren°Diagramme°Formulare" & _
          "mit Steuerelementen versehen"
        Dim htsql As String = hts.Split("°").ToList().Find(Function(x As _
        String) x.Contains("SQL"))

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov