Option Explicit
Private Sub mnusa_Click()
Dim zeile, r, f, dateiname, so, des As String
    Dim N, pos, i, filesize, a, l As Long
    Dim i2 As Long
    Dim z As Long
    cdldatei.DialogTitle = "Datei öffnen..."
    cdldatei.ShowOpen
    i = FreeFile
    dateiname = cdldatei.FileName
     so = dateiname
    des = Mid(dateiname, 1, Len(dateiname) - 4) & ".OLD"
    FileCopy so, des    
        Open dateiname For Input As #i
            filesize = LOF(i)
                While Not EOF(1)
                Line Input #i, zeile
                    If InStr(1, zeile, ":") Then
                        r = Right(zeile, 17)
                        f = Format(r, "m\/dd\/yyyy h:nn:ss AM/PM")
                        zeile = Replace(zeile, r, f)                        
                    End If
                Wend
            Close #i
End Sub

IHR SEID ALLE SO
mfG
dereric


P.S.: schreibt mir eine eMail