Description
This sample code will read data from an iFIX tag.

'declare a few objects
Dim objWorkspace As Object
Dim objDataItem As Object

'get reference to the workspace
Set objWorkspace = CreateObject("Workspace.Application")
'use the workspace.system object to obtain the OODB dataitem
Set objDataItem = objWorkspace.System.FindObject("Fix32.FIX.AI1.F_CV")

'display the value in a msgBox
MsgBox objDataItem.Value

objDataItem.Value = "75"