三菱Q系列PLC使用VB进行通讯时如何进行置位和读数据操作？

公司的系统中厂商自己写的一个Melsec读写模块与PLC通讯，其中读B类型的方法ReceiveDevB可以正常读出，置位操作总是返回-2
Public Function BitSetDevB(intAddress As Integer, Optional intStationNo As Integer = MDEF_STNO_SELFSTATION) As Integer
   Dim intDevType  As Integer  
   Dim intResult   As Integer

   On Error Resume Next
   
   Err.Clear
   intDevType = MDEF_DEVTYPE_B
   
   intResult = mdDevSet(hPort, intStationNo, intDevType, intAddress)
   If intResult > 0 Then intResult = intResult * -1
   BitSetDevB = intResult
End Function
如给B107F进行置位，VB中intAddress给参数&H107F&，置位操作返回-2
给B100进行置位，VB中intAddress给参数&H100&，置位操作返回0，但实际B100位值却未改变，是哪里的问题？VB中PLC地址不是&H107F&这样输入么，怎么感觉地址跟实际监控的地址不一样？
求解答，求VB6与PLC通讯详细方法