急！關於在vb上呼叫.dll！！(編號：7590)

urgent please!!!
我用C++ compile 的dll 裡有個函數
void des_random_key(des_cblock *ret);

des_cblock 是 8 bytes with old parity. 請問在vb要用哪類?
還有
我這樣寫不對？ 因為每次執行vb都當掉　顯示dll產生錯誤
我想把產生的key 在text上
Private Declare Sub des_random_key Lib "libeay32.dll" (ByVal ret As Long)
Private Sub Command1_Click()
Dim alpha As Long
Call des_random_key(alpha)
Text1.Text = alpha
End Sub