Application.CurrentProject.Name kısmının  "." dan sonrasını ayırıp tekrar sona eklemek lazım değil mi şöyle olur mu

Sub projeYedekle()
    Dim fso As FileSystemObject
    Dim DB As New Access.Application
   
    Dim gun, zaman, strFrom, strTo, strToDate, strToTime As String
    Dim sSourcePath, sSourceFile, sBackupPath, sBackupFile As String
   
    gun = Format(Date, "yyyymmdd")
    zaman = Format(Date, "yyyymmdd") & "" & Format(Time, "hhmm")
   
    sSourceFile = Application.CurrentProject.Name
    sBackupFile = Split(sSourceFile, ".")(0) & "_" & zaman & "." & Split(sSourceFile, ".")(1)
   
    strFrom = Application.CurrentProject.Path & "\" & Application.CurrentProject.Name
    strTo = Application.CurrentProject.Path & "\yedek\" & Application.CurrentProject.Name
    strToDate = Application.CurrentProject.Path & "\yedek\" & gun & "_" & Application.CurrentProject.Name
    strToTime = Application.CurrentProject.Path & "\yedek\" & sBackupFile 'zaman & "_" & Application.CurrentProject.Name
   
    If Len(Dir(Application.CurrentProject.Path & "\yedek", vbDirectory)) = 0 Then
      MkDir Application.CurrentProject.Path & "\yedek"
    End If
       
    Set fso = New FileSystemObject
    fso.copyFile strFrom, strToTime, True
    Set fso = Nothing
   
    Beep
    MsgBox "Backup was successful and Saved" & "Backup completed"
End Sub