Dim F As Integer
  Dim sInhalt As String
  Dim lPos As Long
  Dim sText As String
  Dim sNummer As String
  Dim sTemp As String
 
  <font color=green>' Inhalt einlesen</font>
  F = FreeFile
  Open "DeineDatei" For Binary As #F
  sInhalt = Space$(LOF(F))
  Get #F, , sInhalt
  Close #F
 
  <font color=green>' Nach Textstelle suchen</font>
  sText = "Meine Id Nummer ist: "
  lPos = InStr(sInhalt, sText)
  If lPos > 0 Then
    sTemp = Left$(sInhalt, lPos + Len(sText))
    sInhalt = Mid$(sInhalt, Len(sTemp))
 
    <font color=green>' Nach nächstem Leerzeichen suchen</font>
    lPos = InStr(sInhalt, " ")
    If lPos > 0 Then
      <font color=green>' alte Nummer</font>
      sNummer = Left$(sInhalt, lPos - 1)
      sInhalt = Mid$(sInhalt, lPos)
 
      <font color=green>' Jetzt ersetzen</font>
      sInhalt = sTemp & "Neue Nummer" & sInhalt
 
      <font color=green>' und alles wieder speichern</font>
      F = FreeFile
      Open "DeineDatei" For Output As #F
      Print #F, sInhalt;
      Close #F
    End If
  End If