>>63
上で
> .lpstrCustomFilter = ""
> これも別に要らんだろ。
と書いたけど、これはあってもなくてもいいみたい。

あと、
> .lpstrFile = strFileName
> .nMaxFile = strFILENAME_LEN - 1
> .lpstrFileTitle = .lpstrFile
> .nMaxFileTitle = .nMaxFile

この部分は、strFileName がパラメータで渡されてくるとすれば
Const MAX_PATH = 260
.lpstrFile = strFileName & String(MAX_PATH, 0)
.nMaxFile = MAX_PATH
.lpstrFileTitle = String(MAX_PATH, 0)
.nMaxFileTitle = MAX_PATH
のように十分な長さの文字列をセットしといた方がいいよ。

(.lpstrFileTitle と .nMaxFileTitle については
両者を未設定の初期値のままにしておいてもいい)