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
    dateiname = cdldatei.FileName
     so = dateiname
    des = Mid(dateiname, 1, Len(dateiname) - 4) & ".OLD"
    FileCopy so, des    
        Open des for input as #1
        Open dateiname For output As #2
                While Not EOF(1)
                Line Input #1, 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)
                        print #2, zeile                                         _
                                   'geänderte Zeile schreiben
                    else
                          print #2, zeile                                       _
                                     ' Nicht geänderte Zeile schreiben
                    End If
                Wend
            Close #1
            close #2
End Sub

Live and let die