При вызове функции из DLL с параметрами ByRef VB происходит завершение программы

Формулировка задачи:

Добрый день,
есть сторонняя DLL, есть несколько функций, пример
Declare Function имя_функции "длл.dll" (ByVal переменная As String,ByVal переменная As Integer,.... ByVal переменная As Single, ByRef переменная As Any, ByRef переменная As Any, ByRef переменная As Any) As Long
Объявила в модуле, вызываю в форме x=имя_функции(параметры ByVal, ....переменные ByRef)
Print x
Что делаю не так?

Решение задачи: «При вызове функции из DLL с параметрами ByRef VB происходит завершение программы»

textual
                            Листинг программы 
                        

                            Dim CPoints as Long
Dim SPoints as Long
Dim BPoints as Long

CPoints = 0
SPoints = 0 
BPoints - 0

x=GetPoints("asd","4",15,45, CPoints, SPoints, BPoints)

                        