VBA USBへファイルをコピーしたい CopyFile のファイルが見つかりませんエラーの修正

Question

前提・実現したいこと

VBAを使用してUSBに特定のファイルをコピーしたい

ここに質問の内容を詳しく書いてください。
VBAを使用して、USBへ特定のファイルをコピーできるものを作成しようと思います。
実装自体はできている任氏なのですが、ファイルが見つかりませんのエラーが発生します。

発生している問題・エラーメッセージ

実行時エラー　53
ファイルが見つかりません。

該当のソースコード

Sub mkCopyFolder()
    Dim myFSO As Object
    Dim FrFolder As Object
    Dim Path1 As String '作成予定フォルダの上位パス1
    Dim FileName As String
    Dim Dr As Object, Dl As String, Dv As String
    Dim Usename As String
    Dim RealFolder As String
    Dim UseFolder As String
    Dim ret As Long
    
    Path1 = Range("C3").Value
    Usbname = Range("B3").Value + ""
    FileName = Range("B6").Value
    RealFolder = Path1 & "￥" & FileName
    
   Set myFSO = CreateObject("Scripting.FilesystemObject")
    Dl = ""
    For Each Dr In myFSO.Drives
        Dv = ""
        On Error Resume Next
        Dv = Dr.VolumeName
        On Error GoTo 0
        
        If Dv <> "" Then
            If Dr.VolumeName = Usbname Then
                Dl = Dr.DriveLetter
                Exit For
            End If
        End If
    Next Dr
 
        If Dl <> "" Then
        UsbFolder = Dl & ":￥"
        If Dir(UsbFolder) <> "" Then
        ret = MsgBox("同じ名前のファイルがあります。" & vbCrLf & _
        "上書きしていいよね？？", vbYesNo)
        If ret = vbNo Then Exit Sub
        End If
        With New FileSystemObject
.CopyFile RealFolder, UsbFolder, True　←この部分でエラーが発生
        End With
        MsgBox "USBメモリーへ" & FileName & "コピーしました"
    Else
        MsgBox "USBメモリがセットされていません"
    End If
    Set myFSO = Nothing
    Set FrFolder = Nothing
    Set Dr = Nothing
End Sub

試したこと

実際に存在することは画面上で確認していて、
デバックでもPASS表示に問題ないことを確認しています。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。
Excel2016を使用しています。

Comments

[退会済みユーザー]

変数 RealFolder には、コピー元ファイルのフルパスが正しく格納されているという認識で間違いないでしょうか。

[harehareharenoh]

その認識です。
デスクトップ上のファイルでファイルパスはこの用意なっています。
Path1　C:\Users\ユーザー名\Desktop\USBへここから保存
FileName　USBへ保存.xlsx
です

Answer 1

円マークが全角なので半角にしてください。
※表示は半角バックスラッシュになりますが半角円マークと同じ扱いです。

'RealFolder = Path1 & "￥" & FileName
RealFolder = Path1 & "\" & FileName

'UsbFolder = Dl & ":￥"
UsbFolder = Dl & ":\"

実際は半角であればそれぞれの変数に
どのような値が入っているか教えてください。
Path1
Usbname
FileName
RealFolder
UsbFolder

変数の宣言がされていないものがあります。
標準モジュールの先頭にOption Explicitを記載しましょう。

Answer 2

まずは、UsbFolderになにが入ってるか見てみればどうでしょう

Comments

[harehareharenoh]

USBは今回検証用なので空っぽにしてます。
何も入っていません！