https://qiita.com/TestUser2021/questions/def62cf06f1da5d12a1a
#If VBA7 Then
openFile.nMaxFile = LenB(openFile.lpstrFile) - 1 openFile.lStructSize = LenB(openFile)
#Else
openFile.nMaxFile = Len(openFile.lpstrFile) - 1 openFile.lStructSize = Len(openFile)
#End If