Populate listbox in shared folder

[kiko2max]

Good day guys,

Can someone help me about my code?

This code is working fine for me.

Private Sub UserForm_initialize()

fn = Dir(“C:\User\Ben” & “\.*xls”, vbNormal)

Do While Len(fn) > 0

UserForm1.ListBox1.AddItem fn

fn = Dir()

Loop

End Sub

==========================

If i will change the

fn = Dir(“\\192.168.101.52\sharedexcel” & “\.*xls”, vbNormal)

Its not working. Can someone help me regarding about my codes? Thanks in advance