フォルダ指定ダイアログからファイルを選択させるようにする為に下記URL情報を参照してVB.NETにコンバートしました。
ttp://support.microsoft.com/kb/306285/ja
ここまではよかったんですが、既定のフォルダを指定させようと思いコールバック関数を使用して実装してみたのですが
うまくいきません。
ループバック関数はちゃんと呼ばれていますが、下記ロジックでおかしなところがありますでしょうか？
諸先輩方ご教授お願いします。

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As String) As Integer
Public Function BFFCallback(ByVal hwnd As IntPtr, ByVal uMsg As UInt32, ByVal lParam As IntPtr, ByVal lpData As String) As Integer
'フォルダを指定のメッセージをダイアログへ送信
If uMsg = BFFM_INITIALIZED Then
Call SendMessage(hwnd, (&H400S + 102), True, lpData)
End If
End Function