ошибка в макросе с вызовом функций длл

[norvik]

Здравствуйте, не работает простой код, подскажите пожалуйста где ошибка?
Модуль

Public Declare Function GVGetFloat Lib "C:\WINDOWS\system32\MyGV.dll" (ByVal iLocation As Integer) As Single
Public Declare Function GVGetInteger Lib "C:\WINDOWS\system32\MyGV.dll" (ByVal iLocation As Integer) As Integer
-----------------------------------------------------------------------------------------------------------------------------------------------
Sub DataRun()
UserForm1.Show
End Sub




Форма

'код для кнопки ЗАГРУЗИТЬ ТЕКУЩИЕ ДАННЫЕ;
Private Sub CommandButton1_Click()
Dim DataValue As Single
Dim MyIndex As Integer
Dim EndIndex As Integer
Dim iLocation As Integer
iLocation = 0
Range("Data").Select
MyIndex = 0
EndIndex = GVGetInteger(iLocation)
Do While MyIndex < EndIndex
ActiveCell.Offset(1, 0).Select
DataValue = GVGetFloat(MyIndex)
ActiveCell.Value = DataValue
MyIndex = MyIndex + 1
Loop
Range("B1").Select
ActiveCell.Value = EndIndex
End Sub
'--------------------------
Private Sub CommandButton2_Click()
Unload Me
End Sub
'--------------------------

Макрос должен записать в первый столбец определенное число элементов массива float из глобальной переменной MyGV.dll. Число элементов считывается из первого элемента массива int. Ексель 2003, длл собирал в VC6++, между другими программами данными обмениваюсь нормально, в екселе возвращает все время код ошибки -1(out of range) В чем может быть проблема? Спасибо.

[doober]

В VBA Integer отводится 2 байта значение от -32767 до 32767
В С++ Размер типа int не определяется стандартом, а зависит от компьютера и компилятора.
Возможно здесь и причина.
Вам надо объявлять тип переменной как Long
4 байта значение От -2 147 483 648 до 2 147 483 647

[norvik]

Сообщение от doober

В VBA Integer отводится 2 байта значение от -32767 до 32767
В С++ Размер типа int не определяется стандартом, а зависит от компьютера и компилятора.
Возможно здесь и причина.
Вам надо объявлять тип переменной как Long
4 байта значение От -2 147 483 648 до 2 147 483 647

Спасибо огромное, все заработало.