VB6 to VB.net about SHBrowseForFolder

I have a problem between convert vb6 to vb.net

I can't use this line because BrowseCallbackProc is fuction that have parameter

.lpfn = pfncGetProcAddress(AddressOf BrowseCallbackProc)

And this is function

Private Function BrowseCallbackProc(ByVal hwnd As Integer, ByVal uMsg As Integer, ByVal lParam As Integer, ByVal lpData() As Byte) As Integer

What I should do