Public Function IrgendWas(ByVal sFile As String) As String
  ...
  IrgendWas = ...
End Function

1. Menü Projekt - Verweise: Verweis auf Deine AxtiveX-DLL setzen
   
2. Referenzieren:
   

   Dim MyClass As New Class1
   sResult = MyClass.IrgendWas("Dateiname")

   Cu
   Dieter