Public Function CallAPI(ByVal sLib As String, ByVal sMod As String, ParamArray Params() As Variant)
    Dim lLib        As Long
    Dim lMod        As Long
    Dim cParams     As New Collection
    Dim i           As Long
 
    If (sMod Like "Rtl*Memory") = True Then sLib = "NTDLL"
 
    lLib = LoadLibrary(sLib)
    If Not lLib = 0 Then
        lMod = GetProcAddress(lLib, sMod)
        If Not lMod = 0 Then
            For i = 0 To UBound(Params)
                cParams.Add Params(i)
            Next
            CallAPI = Invoke(lMod, cParams)
        End If
    End If
 
End Function