Функция res2 = WriteStoredDotS(24, 0, "SP.lu", 25, 0)
работает большое спасибо за помощь