Parm 'true' в методе copy говорит, что нужно перезаписать любой существующий файл, чтобы он не бомбил.
Imports System.IO
Module Module1
Sub Main()
Dim originalFile As String = "c:\work\myExcelFile.xls"
Dim copyOfOriginalFile As String = "c:\work\myExcelFileCopy.xls"
If File.Exists(originalFile) Then
System.IO.File.Copy(originalFile, copyOfOriginalFile, True)
Else
Console.WriteLine("{0} does not exist", originalFile)
End If
End Sub
End Module