Visual Basic вылетает с ошибкой при попытке вызова функции из DLL - VB

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

                    Листинг программы
                
Declare Function testdll Lib "cfg.dll" () As String

                    Листинг программы
                
Private Sub Form_Load()
    Me.Caption = testdll()
End Sub

сама dll написана на PureBasic

                    Листинг программы
                
Global Result.s
 
ProcedureDLL.s testdll()
  Result ="test string"
  ProcedureReturn Result
EndProcedure

Такой случай наблюдается только при вызове ф-ций возвращающих строки. С числами всё ОК. Я бы переписал имеющиеся в dll строковые функции на VB, но это будет слишком долго и муторно. Скрин ошибки во вложении. Есть какие либо варианты решения?

Решение задачи: «Visual Basic вылетает с ошибкой при попытке вызова функции из DLL»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Function EasyRequester Lib "c:\Purebasic\Compilers\Purebasic.dll" (ByVal Message As String) As Long
Private Declare Function EasyString Lib "c:\Purebasic\Compilers\Purebasic.dll" (ByVal Message As String) As Long 'String
Private Declare Function lstrcpy Lib "Kernel32.dll" (ByVal MyString As String, ByVal MyLong As Long) As Long
 
Private Sub Command1_Click()
Dim Result As Long
Dim MyString As String
Dim Pointer As Long
 
Result = EasyRequester("Test")
MsgBox Str(Result)
 
Pointer = EasyString("Test")
MsgBox Str(Pointer)
 
MyString = Space(255)
Res = lstrcpy(MyString, Pointer)
 
MsgBox MyString
End Sub