Function SaveFileToUSB(strFilePathAndName As String, strDriveLetterToUse As String, Optional strNewPath As String)
Dim strNewName As String
Dim strFileName As String
strFileName = Right(strFilePathAndName, Len(strFilePathAndName) - InstrRev(strFilePathAndName, "\", True, vbTextCompare))
If strNewPath <> vbNullString Then
strNewName = strNewPath & "\" & strFileName
Else
strNewName = strDriveLetterToUse & "\" & strFileName
End If
Name strFilePathAndName strNewName
End Function