Dim seekStr As String = "Route nach"
                'die Entfernung auslesen
                For i = LBound(strTeile) To UBound(strTeile)
                    Select Case art
                        Case 0
                            If InStr(1, strTeile(i), "Fahrt:", vbTextCompare) _
                              > 0 Then
                                Entfernung = Trim(Replace(strTeile(i), _
                                "Fahrt:", ""))
                                f = InStr(Entfernung, " km")
                                Entfernung = Left(Entfernung, f - 1)
                                Exit For
                            End If
                        Case Else
                            f = InStr(1, strTeile(i), seekStr, vbTextCompare)
                            If f > 0 Then
                                Dim z As String = strTeile(i + 3)
                                Entfernung = z.Substring(0, z.IndexOf("km") - 1)
                                Exit For
                            End If
                    End Select
                Next i

Salzburger