'Uses XML-RPC.NET 2.5.0 written by Charles Cook
'https://www.nuget.org/packages/xmlrpcnet/2.5.0

Imports CookComputing.XmlRpc

<XmlRpcUrl("https://www.upcdatabase.com/xmlrpc")> _
Public Interface IUPCDatabase
    Inherits IXmlRpcProxy

    <XmlRpcMethod("help")> _
    Function Help() As XmlRpcStruct

    <XmlRpcMethod("lookup")> _
    Function Lookup(ByVal struct As XmlRpcStruct) As XmlRpcStruct

End Interface

Public Class Form1
    Const RPCKEY As String = "0000000000000000000000000000000000000000" 'Replace with your own RPCKey
    Private _proxy As IUPCDatabase

    Private Function GetDescription(ByVal strUPC As String) As String
        Dim request As New XmlRpcStruct
        Dim response As New XmlRpcStruct

        'Validate(strUPC) 'Your own method to Trim and/or expand UPCE if needed UPCCode submission should be in UPCA Format

        request.Add("rpc_key", RPCKEY)
        request.Add("upc", strUPC)

        response = _proxy.Lookup(request)

        Return response("description") & " " & response("size")
    End Function

End Class