BrowseFolder con access

Hola;
Estoy intentando hacer un buscador de ficheros para insertarlo en una aplicación access, encontré uno por internet pero al ejecutarlo en algunas máquinas me da el siguiente error:
Cuando ejecuto la función me sale un error con Space$-Lef$ no sabe el programa a qué hace función hace referencia
y el codigo empleado es;
Function BrowseFolder(szDialogTit le As String) As String
Dim x As Long, bi As BROWSEINFO, dwIList As Long
Dim szPath As String, wPos As Integer
With bi
.hOwner = hWndAccessApp
.lpszTitle = szDialogTitle
.ulFlags = BIF_RETURNONLYFSDIRS
End With
dwIList = SHBrowseForFolder(bi)
szPath = Space$(512)
x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
If x Then
wPos = InStr(szPath, Chr(0))
BrowseFolder = Left$(szPath, wPos - 1)
Else
BrowseFolder = ""
End If
End Function
¿Sabrías indicarme el porque u otra forma de hacer un buscador de ficheros y que el usuario pueda elegir uno..?
Gracias...