Dim F As Integer
Dim sBuffer As String
Dim sLines() As String
Dim i As Long
 
' Textdatei einlesen
F = FreeFile
Open "Textdatei.txt" For Binary As #F
sBuffer = Space$(LOF(F))
Get #F, , sBuffer
Close #F
 
sLines = Split(sBuffer, vbCrLf)
 
' Vorzeichen ändern
For i = 0 To UBound(sLines)
  If Mid$(sLines(i), 121, 1) = "-" Then
    Mid$(sLines(i), 121, 1) = "+"
  ElseIf Mid$(sLines(i), 121, 1) = "+" Then
    Mid$(sLines(i), 121, 1) = "-"
  End If
Next i
 
' Inhalt zurückspeichern
F = FreeFile
Open "Textdatei.txt" For Output As #F
Print #F, Join(sLines, vbCrlf)
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de