Late binding works only at some PCs

[waldemar]

This function is supposed to get a Folder Name from the User, but it works only on some PCs....?

Function findHome() As String
Dim shellapplication As Object
Dim folder As Object
Dim optns As Integer

Set shellapplication = CreateObject("Shell.Application&quot

If Instructions = "" Then Instructions = "Select Home folder"
optns = IIf(ShowEditBox, 17, 1)
Set folder = shellapplication.BrowseForFolder(hWndAccessApp, Instructions, optns)
If folder Is Nothing Then
findHome = ""
Else
findHome = folder.self.Path
End If

Set shellapplication = Nothing
Set folder = Nothing
End Function


On some PCs the Code stops at "findHome = folder.self.Path"... does anybody have an idea?

Regards
waldemar