Public Function Check(Filename As String, DLLName As String) As Boolean
    On Error GoTo Err
    Dim objCtrl As Object
    Set objCtrl = CreateObjectFromFile(Filename, DLLName & ".Check")
    Check = objCtrl.Check()
    Set objCtrl = Nothing
    Exit Function
Err:
    Call ErrHandler(Err, "Objekt konnte nicht erstellt oder initialisiert" & _
      "werden.")
End Function

Dim i As Integer
Dim b As Boolean
For i = 0 To 10
    b = Check
Next i