Private Function OpenConnection() Dim Client As New EasyUAClient OutputText = "" Dim ReadArguments1 As New UAReadArguments ReadArguments1.EndpointDescriptor.UrlString = "Server" ReadArguments1.EndpointDescriptor.UserIdentity.UserNameTokenInfo.UserName = "User" ReadArguments1.EndpointDescriptor.UserIdentity.UserNameTokenInfo.Password = "Password" ReadArguments1.NodeDescriptor.NodeId.expandedText = "ns=2;s=Channel_1-ExecutionState" Dim arguments(0) As Variant Set arguments(0) = ReadArguments1 ' Obtain values. By default, the Value attributes of the nodes will be read. Dim results() As Variant results = Client.ReadMultipleValues(arguments) ' Display results Dim i: For i = LBound(results) To UBound(results) Dim Result As ValueResult: Set Result = results(i) If Result.Succeeded Then If Val(Result.Value) = 0 Then Status = "Off" If Val(Result.Value) = 1 Then Status = "On" If Val(Result.Value) = 2 Then Status = "interrupt" If Val(Result.Value) = 3 Then Status = "listen" OutputText = "Status: " & Status Else OutputText = "*** Failure: Err.n." & Result.ErrorCode & " " & Result.ErrorMessageBrief & vbCrLf End If Next Client.UnsubscribeAllMonitoredItems Set Client = Nothing Set ReadArguments1 = Nothing Set Result = Nothing Erase results Erase arguments End Function