How do I set a default root folder in the common dialog Select Folder using VBA?

 Declare Function SHBrowseForFolder Lib "shell32.dll" (lpbi As BrowseInfo) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal HWND As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
 
Private Const WM_USER = &H400
Private Const BFFM_INITIALIZED = 1
Private Const BFFM_SELCHANGED = 2
Private Const BFFM_SETSTATUSTEXT = (WM_USER + 100)
Private Const BFFM_SETSELECTION = (WM_USER + 102)
Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_NEWDIALOGSTYLE As Long = &H40
Private Const BIF_STATUSTEXT As Long = &H4
Private Const cintMaxPath As Integer = 260
Private strStartFolder As String
Private strMStartFolder As String
 
Private Type BrowseInfo
  hWndOwner      As Long
  pIDLRoot       As Long
  pszDisplayName As Long
  lpszTitle      As Long
  ulFlags        As Long
  lpfnCallback   As Long
  lParam         As Long
  iImage         As Long
End Type
 
 Private Function GetAddressofFunction(add As Long) As Long
  GetAddressofFunction = add
End Function
  
Public Function GetFolderPath(ByVal strPath As String) As String
'Opens a Browse Folders Dialog Box
Dim lpIDList As Long
Dim tBrowseInfo As BrowseInfo
 
strStartFolder = "C:\temp\myprojects"
 
With tBrowseInfo
   .ulFlags = BIF_RETURNONLYFSDIRS + BIF_STATUSTEXT + BIF_NEWDIALOGSTYLE
End With
If strStartFolder <> "" Then
    strMStartFolder = strStartFolder & vbNullChar
    tBrowseInfo.lpfnCallback = GetAddressofFunction(AddressOf BrowseCallbackProc) 'get address of function.
End If
lpIDList = SHBrowseForFolder(tBrowseInfo)
 
GetFolderPath = strPath
End Function
 
 
Function BrowseCallbackProc(ByVal HWND As Long, ByVal uMsg As Long, ByVal lp As Long, ByVal pData As Long) As Long
 
    On Error Resume Next
    Dim lpIDList As Long
    Dim ret As Long
    Dim sBuffer As String
    Select Case uMsg
        Case BFFM_INITIALIZED
            Call SendMessage(HWND, BFFM_SETSELECTION, 1, strMStartFolder)
        Case BFFM_SELCHANGED
            'sBuffer = Space(cintMaxPath)
            'ret = SHGetPathFromIDList(lp, sBuffer)
            'If ret = 1 Then
            '    Call SendMessage(HWND, BFFM_SETSTATUSTEXT, 0, sBuffer)
            'End If
    End Select
    BrowseCallbackProc = 0
End Function
 
 
Sub test()
GetFolderPath ()
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74: