I did some trial and error and was able to make it work.

Private Sub Command7_Click()

    Dim PathFilename As String
    Dim FilenameOnly As String
    Dim L As Integer
    
    L = Len(ImagesFolder)
    PathFilename = GetFileNameOnly(LaunchCD(Me))
    FilenameOnly = PathFilename
    
    If Left(PathFilename, L) <> ImagesFolder Then
        'FilenameOnly = EmployeeID & "-" & FilenameOnly    To Add claim number to photo.
        If Dir(ImagesFolder & FilenameOnly) <> "" Then
        If MsgBox("File Already Exist, Overwrite It?", vbYesNo) = vbNo Then
            Exit Sub
        End If
        End If
    
    FileCopy PathFilename, ImagesFolder & FilenameOnly
    
    End If
    
    Me.EmployeePicture = FilenameOnly
    
    UpdatePicture
    
End Sub