Do
      X = InStr(1, sLine, "<")
       If X = 0 Then
         Exit Do
        Else
            z = InStr(1, sLine, ">")
                If z = 0 Then
                    Exit Do
                Else
                    vorne = left(sLine, X - 1)
                    hinten = Mid(sLine, z + 1, Len(sLine) - z + 1)
                    Textzeile = vorne & hinten
                End If
        End If
Loop