Private Sub CopyFileToFolder(ByVal FileName As String, ByVal FileNameNew As String)

        File.Copy(FileName, FileNameNew, True)

End Sub