writeResults = OPCDAClient.WriteMultipleItemValues(writeItems)
            If Not writeResults Is Nothing Then
                'iterate through the array
                For i = LBound(writeResults) To UBound(writeResults)
                    If writeResults(i).Succeeded Then
                        'append our message with a "success"
                        strWriteValue.Append("Element " & i & ": success")
                    Else
                        strWriteValue.Append(writeResults(i).ErrorCode & ": " & writeResults(i).ErrorMessage)
                        MessageBox.Show(writeResults(i).ErrorCode & ": " & writeResults(i).ErrorMessage, "System Exception", MessageBoxButtons.OK, MessageBoxIcon.Error) 'AM1 added this line to monitor error
                        writeError = True
                    End If
                    'add a carriage-return + linefeed to the message
                    strWriteValue.Append(vbCrLf)
                Next
            End If