DLL(Delphi) для vb

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

Доброго времени суток народ! Сообственно сама проблема: сама функция в делфи

                    Листинг программы
                
 
                        
                          
                    
function ssCase(x:integer):PChar;stdcall;
//var st: string;
begin
case x of
1: st:='XOPOIIIO';
end;
  Result:= PChar(st);
end;
 exports ssCase;
begin
end.

При выполнении vb просто вылетает

                    Листинг программы
                
Private Declare Function ssCase Lib "C:\Users\User\Desktop\dll\Project1.dll" (ByVal x As Integer) As Integer
Private Sub Form_Load()
MsgBox (ssCase(1))
End Sub

как я пологаю ошибка в передачи результат из длл в вб с размерами переменных а может и нет помогите кто чем может в чем ошибка? как правильно вызвать в вб?

Решение задачи: «DLL(Delphi) для vb»

textual
                            Листинг программы 
                        
dim s as String * 6
s = ssCase(1&)
msgbox s