Использую Вашу OWEN_IO.DLL

Определение функций:
'Запись значения с плавающей точкой
Private Declare Function WriteStoredDotSng Lib "owen_io" _
(ByVal adr As Long, _
ByVal adr_type As Long, _
ByVal cmd As String, _
ByVal value As Single, _
ByVal Index As Integer) _
As Long

Вот такая комманда ничего не даёт:
Dim res As Long
Dim value As Single

res = WriteStoredDotSng(8, 0, "C.SP", 100, 0)
res = ReadStoredDotSng(8, 0, "C.SP", value, 0)
Print value


Пробовал и так :

Dim res As Long
Dim value As Single

res = WriteStoredDotS(8, 0, "C.SP", 100, 0)
res = ReadStoredDotS(8, 0, "C.SP", value, 0)
Print value

-----ничего!
Результат =0!


Подскажите, пожалуйста, что не так!