gooptek

Check help for REPLACE function.

You have to pass reference to your form when calling DLL functions, so you need to modify public functions like this: Public Sub AddIcon(Form1 As Form, txtTip As String) or Public Sub AddIcon(Form1 As Object, txtTip As String) and then from your exe: Call test.AddIcon(Me, "sdf")

This should work: =Mid(Left("#\\abc.org.uk\Root\OurSrevice\OurTeam\Peter\Dump\MyDoc.doc#",Len("#\\abc.org.uk\Root\OurSrevice\OurTeam\Peter\Dump\MyDoc.doc#")-1),InStrRev(Left("#\\abc.org.uk\Root\OurSrevice\OurTeam\Peter\Dump\MyDoc.doc#",Len("#\\abc.org.uk\Root\OurSrevice\OurTeam\Peter\Dump\MyDoc.doc#")-1),"\")+1)

Can you post the exact error message you are getting when you are attempting to open your project? In any case the only feasible solution would be to create a brand new project, add all references to controls and com objects you use in the project and then try to …