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