error de compilacion en ruta=space$(512)

hola Hector

la semana pasada hice una consulta sobre desplegar un
menu de windows donde elijo una carpeta para poner
informacion que voy a exportar de excel, la macro
funciono muy bien en mi computador pero al abrirla otro
usuario en otra pc sale un error de compilacion ( no se
puede encontrar el proyecto o la biblioteca) señalando en
negrilla

" ruta=space$(512)"

a que puede deberse este error y que salga solo en
algunos computadores

muchas gracias de antemano
pd.. anexo el codigo que estoy utilizando

Private Sub BROWSE_Click()
Application.ScreenUpdating = True
Dim Directorio As String
Directorio = ObtenerDirectorio("Selecciona un
directorio...")

If Directorio = "" Then

MsgBox "¡ NO se ha seleccionado ningún directorio !!!"




End If
'Application.ScreenUpdating = False
Sheets("BASE").Range("D1") = Directorio
'Application.ScreenUpdating = False

End Sub



' la funcion que 'obtiene' el nombre del directorio [si]
seleccionado '
Function ObtenerDirectorio(Optional ByVal Texto As
String) As String
Dim Iniciar_en As InfoNavegar, _
RUTA As String, _
Directorio As Long, _
Buscar_en As Long, _
Largo As Integer, _
Seleccionado As String
Iniciar_en.IDRutaRaiz = 0&
If IsMissing(Texto) Or Texto = "" _
Then Iniciar_en.DlgTexto = "Selecciona un
directorio." _
Else Iniciar_en.DlgTexto = Texto
Iniciar_en.Devolver = &H1
Buscar_en = ExplorarDirectorios(Iniciar_en)
RUTA = Space$(512)
Directorio = BuscarDirectorio(Buscar_en, RUTA)
If Directorio Then
Largo = InStr(RUTA, Chr$(0))
Seleccionado = Left(RUTA, Largo - 1)
If Right(Seleccionado, 1) <> "\" Then Seleccionado =
Seleccionado
Else: Seleccionado = ""
End If
ObtenerDirectorio = Seleccionado
End Function
' funcion 'complementaria' para la opcion a
_
la siguiente seria la funcion 'en reversa' SOLO si se
usara excel 97