Dim OutText As String
Dim myValue As Variant
Dim myQuality As Long
Dim myTimeStamp As Date
Dim ErrorNr As Long
Dim ErrorString As String

On Error GoTo ErrorHandler
OutText = "Reading Value of Item"

ErrorNr = DatCon1.ReadVariable("S7:[@LOCALSERVER]DB1,INT0,1", myValue, myQuality, myTimeStamp)

Dim ErrorNr As Long
ErrorNr = DatCon1.WriteVariable("S7:[@LOCALSERVER]DB1,INT0,1", 55)