Option Explicit
 
Dim IeApp As Object
 
Private Sub Command1_Click()
Call Anzeigen("d:\daten\", "test.html")
End Sub
 
 
Private Sub Anzeigen(PfadName As String, DName As String)
   Set IeApp = CreateObject("InternetExplorer.Application")
   IeApp.Visible = True
 
     IeApp.navigate2 PfadName & DName
End Sub

EALA FREYA FRESENA