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
https://stackoverflow.com/questions/4982680/getopenfilename-fails-in-64-bit-but-works-in-32bit