<code>  <font color=#000099>Dim</font> sZeile <font color=#000099>As</font> _
  <font color=#000099>String</font>
  <font color=#000099>Dim</font> sVar <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  sZeile = "A;ab;3456;9df45;kkg65;;rem;t2d;...."
  sVar = "9999"
 
  <font color=#000099>Dim</font> lPos <font color=#000099>As</font> <font _
    color=#000099>Long</font>
 
  <font color=green>' Nach den ersten ;; suchen</font>
  lPos = InStr(sZeile, ";;")
  <font color=#000099>If</font> lPos > 0 <font color=#000099>Then</font>
    <font color=green>' Gefunden - jetzt sVar dazwischen einfügen</font>
    sZeile = Left$(sZeile, lPos) + sVar + Mid$(sZeile, lPos + 1)
    MsgBox sZeile
  <font color=#000099>End</font> <font color=#000099>If</font></code>