Public Function DLL_Check_Type(sFile As String, sType As String) As Boolean
 Dim Obj As Object
 
  On Local Error GoTo Error
 
   Set Obj = CreateObject(Left(sFile, Len(sFile) - 3) & "Load")
 
    If LCase(Obj.Load_Get_Type) = LCase(sType) Then
     DLL_Check_Type = True
     Exit Function
    Else
     DLL_Check_Type = False
     Exit Function
    End If
   Exit Function
 
Error:
 DLL_Check_Type = False
 Exit Function
End Function