Dim Text As String = "irgendein Text"
    Dim alteZeichen() As String = {">", "<", " ", "&"}
    Dim neueZeichen() As String = {">", "<", vbTab, "&"}
    For i As Integer = alteZeichen.GetLowerBound(0) To _
      alteZeichen.GetUpperBound(0)
      Text = Text.Replace(alteZeichen(i), neueZeichen(i))
    Next

_____________________________________
Overbenny

(Wer den Overlord aus C&C Generals kennt,
wei? wie mein Nick zustande kam.)