Dim Zeile$, Pos1&, Pos2&, NeuerText$, Token$
 
  Zeile = ">>Dein Text<<"
  Pos1 = 1
  Do
    Pos1 = InStr(Pos1, Zeile, "@@")
    If Pos1 = 0 Then Exit Do
    Pos2 = InStr(Pos1 + 2, Zeile, "@@")
    If Pos2 = 0 Then Exit Do
    Token = Mid$(Zeile, Pos1 + 2, Pos2 - Pos1 - 2)
    NeuerText = HoleText(Token)
    Zeile = Left$(Zeile, Pos1 - 1) & _
      NeuerText & Mid$(Zeile, Pos2 + 2)
    Pos1 = Pos1 + Len(NeuerText) 
  Loop
 
  MsgBox Zeile

Gruss,

Zardoz