Public Class FreenomDNS
        Public UserName, Password As String
        Public FreenomAPIObject As Object

        Public Function Authorize(UserName As String, Password As String)
            Dim F = EdgeJs.Edge.Func("
                    var Freenom;
                    F=function (data, callback) 
                    { 
                        Freenom = require(""freenom-dns"").init(data, ""Password123"");
                        callback(null, Freenom); 
                    };
                    return F;
                ")

            'Dim T = F({UserName, Password})

            Dim T = F(UserName) ' Task
            T.Wait()
            Dim FreenomAPIObject As System.Dynamic.ExpandoObject = T.Result()
            Dim EO As Object = FreenomAPIObject
            Dim Domains = EO.listDomains()
        End Function

    End Class

            Dim FreenomAPIObject As System.Dynamic.ExpandoObject = F(UserName).WaitResult()
            Dim ListDomainsFunc As System.Func(Of Object, System.Threading.Tasks.Task(Of Object)) = CObj(FreenomAPIObject).dns.listDomains
            Dim R = ListDomainsFunc(Nothing).WaitResult()

    Public Class FreenomDNS
        Public UserName, Password As String
        Public EdgeFunc As System.Func(Of Object, System.Threading.Tasks.Task(Of Object))
        Public Freenom As Object

        Public Function Authorize(UserName As String, Password As String)
            EdgeFunc = EdgeJs.Edge.Func("
                    var Freenom;
/*
                    ReturnValueFunc=function()
                    {
                        return Freenom;
                    }
*/
                    EdgeFunc=function (data, callback) 
                    { 
                        var UserName=data[0];
                        var Password=data[1];
                        Freenom = require(""freenom-dns"").init(UserName, Password);
                        callback(null, Freenom); 
                    };
                    return EdgeFunc;
            ")
            Freenom = EdgeFunc({UserName, Password}).WaitResult().dns
        End Function

        Function ListRecords(ForDomain As String)
            Dim FreenomFunc As System.Func(Of Object, System.Threading.Tasks.Task(Of Object)) =
                   Freenom.listRecords 'listDomains
            ListRecords = FreenomFunc(ForDomain).WaitResult(5000)
        End Function
    End Class

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim TestDNS As New FreenomDNS
        TestDNS.Authorize(UserNameConst, PasswordConst)
        Debug.Print(TestDNS.ListRecords(DomainNameConst).ToString())