VBAで2バイトのファイル名の場合保存しない方法

こんにちは。

Excelファイルのバックアップを作成するジョブを作成しているのですが、ファイル名が2バイト文字の場合、バックアップを作成せず、1バイト文字の場合のみバックアップするにはどうすればいいでしょうか。よろしくお願いいたします。

Sub autoSave(ByRef wb As Workbook, ByRef dateFilename As String)
debugPrint "autoSave:" & wb.Name
On Error Resume Next

If IsEmpty(wb.Worksheets(1).UsedRange) = True Then
    debugPrint "autoSave skip by empty"
    Exit Sub
End If

Dim myPath As String
myPath = wb.fullname

Dim myBaseName As String
Dim myExtension As String
Call splitFileBaseExtension(myPath, myBaseName, myExtension)

If myExtension <> "xlsx" And myExtension <> "xls" And myExtension <> "csv" Then
    Exit Sub
End If

Dim backupFilePath As String
Dim backupFilename As String
backupFilename = getBackupFilename(myBaseName, myExtension, dateFilename)
backupFilePath = DEST_DIR & "\" & backupFilename

If Dir(DEST_DIR, vbDirectory) = "" Then
    recursiveMkDir DEST_DIR
End If
Call deleteMaxFiles(myBaseName, myExtension)

wb.SaveCopyAs backupFilePath