Attribute VB_Name = "Module1"
Declare Function A822_InputByte Lib "a822w31.dll" (ByVal Address As Integer) As Integer
Declare Sub A822_OutputByte Lib "a822w31.dll" (ByVal Address As Integer, ByVal val As Integer)