Dim IeApp As Object             
Private Sub Anzeigen(PfadName as string, DName as string)
   Set IeApp = CreateObject("InternetExplorer.Application")
   IeApp.Visible = True
 
     IeApp.navigate2 PfadName & DName, 1
end sub