100分！关于vb调用delphi编写的dll的问题，急！！！

各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。

请看代码
以下是delphi中的函数定义和调用代码，能正常运行

定义
function CommitCurrentPayCashCardList2(iBillID: Integer; sCashier: PChar; piTransID: PInteger): Integer; stdcall;external 'CRMInterface.dll';
调用
  iXPH :integer;
  iTransID :integer;
  iXPH := strToint(edXPH.Text );

  if CommitCurrentPayCashCardList2(iXPH,PChar(edSKY.Text),@iTransID)=1 then
  begin
  ShowMessage('消费成功');
  end

下面是我在vb里写的定义和调用，但是一运行程序就崩溃，请大家快给支招吧，谢谢了。急死我了！
定义
Public Declare Function CommitCurrentPayCashCardList2 _
  Lib "CRMInterface.dll" _
  (ByVal iBillID As Integer, _
  ByVal sCashier As String, _
  ByVal iTransID As Long) As Long
调用
iXPH = 1
emplID = "1"

If CommitCurrentPayCashCardList2(iXPH, emplID, VarPtr(iTransID)) = 1 Then
  MsgBox "success"
Else
  MsgBox "err"
End If

---

冒是vb和delphi是仇人加对家。

---

dll是第三方提供的，要跟其他系统有接口的，所以dll不可能是我们自己开发。

---

没人能解决吗？郁闷郁闷啊

---

你看看没猩猩来，就是困难或无解。
100分嗷，猩猩的鼻子不会