Private Sub Command1_Click()
Dim Nr As Integer
Dim Text As String
Dim Zeile() As String
Dim N As Long
Dim K As Long
Dim Zähler As Long
 
Nr = FreeFile
 
Open "D:\Test.txt" For Binary As #Nr
  Text = Space(LOF(Nr))
  Get #Nr, , Text
Close #Nr
 
Zeile = Split(Text, vbCrLf)
 
For N = 0 To UBound(Zeile)
 
  Zähler = 1
 
  For K = UBound(Zeile) To N + 1 Step -1
    If Zeile(K) = Zeile(N) Then
      Zähler = Zähler + 1
      Zeile(K) = ""
    End If
  Next
 
  If Zähler > 1 Then
    If Zeile(N) <> "" Then
      Zeile(N) = Mid(Zeile(N), 1, InStr(1, Zeile(N), ";")) & CStr(Zähler)
    End If
  End If
 
Next
 
Text = ""
 
For N = 0 To UBound(Zeile)
  If Zeile(N) <> "" Then
    Text = Text & Zeile(N) & vbCrLf
  End If
Next
 
If Dir("D:\Neu.txt") <> "" Then Kill "D:\Neu.txt"
 
Nr = FreeFile
 
Open "D:\Neu.txt" For Binary As #Nr
  Put #Nr, , Text
Close #Nr
 
End Sub