Function fcnFolderPickerMac() As String
Dim strPath As String
Dim strRoot As String
Dim strScript As String
'This is the function that I have no way to test.
  On Error Resume Next
  'Enter the Start Folder, Desktop in this example,
  strRoot = MacScript("return POSIX path of (path to desktop folder) as String") 'How would you change this make the root say "D:\Test" ?
  'Make the path Colon seperated for using in MacScript
  strRoot = MacScript("return POSIX file (""" & strRoot & """) as string")
  'Make the Script string
  strScript = "return POSIX path of (choose folder with prompt ""Select the folder""" & " default location alias """ & strRoot & """) as string"
  'Run the Script
  strPath = MacScript(strScript)
  On Error GoTo 0
  If strPath <> "" Then fcnFolderPickerMac
lbl_Exit:
  Exit Function
 End Function