Private Sub Command1_Click()
    Dim Zeile As String
    Dim Dateipfad As String
    Dim Dateiname As String
 
    Dateipfad = "DeinPfad" & "\"
    Dateiname = "DeineTextdatei.txt"
    Open Dateipfad & Dateiname For Input As #1
    Open Dateipfad & Dateiname & ".tmp" For Output As #2
    Do While Not EOF(1)
        Line Input #1, Zeile
        If Trim(Zeile) <> "" Then
            If InStr(Mid(Zeile, InStrRev(Zeile, " ") + 1), ".") = 0 Then
                If LOF(2) = 0 Then
                    Print #2, Zeile;
                Else
                    Print #2, vbCrLf & Zeile;
                End If
            Else
                Print #2, ";" & Zeile;
            End If
        End If
    Loop
    Close
    Kill Dateipfad & Dateiname
    Name Dateipfad & Dateiname & ".tmp" As Dateipfad & Dateiname
    MsgBox "Fertig!"
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...