iLogicVb.RunMacro("InventorVBA", "m_Forums", "SampleMethod")

Dim map As Inventor.NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap()

iLogicVb.RunMacro("InventorVBA", "m_Forums", "SampleFunction", 3, map)
Logger.Debug(map.Value("result"))

Sub SampleMethod()
    Debug.Print "I'm called"
End Sub

Function SampleFunction(inputNumber As Double, nvm As NameValueMap) As Double
    Dim result As Double
    
    result = inputNumber * 2
    
    SampleFunction2 = result
    nvm.value("result") = result
End Function