CSVを読み込んで文字化けした場合の対処方法について【Excel VBA】

Sub CSV読み込み()
Dim sht1 As Worksheet: Set sht1 = ThisWorkbook.Sheets("○○")
    '○○にはシート名を記載。
    
    'CSVの読み込み
    If MsgBox("処理を行う前にcsvファイルを読み込みますか？" & vbLf & "(○○シートは全て削除されます。)", vbYesNo + vbInformation) = vbNo Then Exit Sub
    
    Dim fn As String: fn = Application.GetOpenFilename("CSVファイル,*.csv", 1, "□□CSVファイルを選択")
    '□□には読み込みたいcsvファイルの名前を記載
    
    If fn = "False" Then Exit Sub
    
    sht1.UsedRange.Clear
    
    With sht1.QueryTables.Add(Connection:="TEXT;" & fn, Destination:=sht1.Range("A1"))
        .RefreshStyle = xlInsertDeleteCells
        .SaveData = True
        .RefreshPeriod = 0
        .TextFilePlatform = 932
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileCommaDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        .Delete
    End With
    'CSVの読み込み(完了)
End Sub