While waiting for Archie fixing the driver, do you feel like to try what I suggested. I am just curious to see if it will work. Add a timer, enable it and some codes like below:
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
If READ_STA2_FLAG Then
ModbusRTUCom1.DisableSubscriptions = True
ModbusRTUCom1.StationAddress = 2
ModbusRTUCom1.DisableSubscriptions = False
GoReadSta2()
READ_STA2_FLAG = False
Else
ModbusRTUCom1.DisableSubscriptions = True
ModbusRTUCom1.StationAddress = 1
ModbusRTUCom1.DisableSubscriptions = False
GoReadSta1()
READ_STA2_FLAG = True
End If
End Sub