Спасибо всем огромное!
Действительно проблема в функции,необходимо было считывать через
data(3) = master.ReadinputRegisters(0, 1)(0)
Документы читал,но смутило именно то , что в Codesys названия "Входные" и "Выходные" по другому определены.
Еще раз спасибо.