我调用动态连接库函数，想把函数返回值输出到文本中。
public cardata
public cardnohex
public cardnodec
if thisform.olecontrol1.ReadSpecifyWithPass(1,4,"ffffff",0,1,cardata,cardnohex,cardnodec)=0 *ReadSpecifyWithPass为读IC卡数据函数
MESSAGEBOX('读数据失败',48,'信息提示')
else
thisform.text1.value=cardata
MESSAGEBOX('读数据成功',64,'信息提示')
endif
读数据成功，可文本框里显示F，那为大侠知道为什么？谢谢！
函数说明如下：
带密码读取指定块数据以十六进制字符串返回，并返回十进制卡号和十六进制卡号串
ReadSpecifyWithPass(int jh, int block, BSTR *pass,int ab, int closeorno, BSTR *data, BSTR *cardnohex,BSTR *cardnodec)：BOOL
jh机号
block块号
pass密码
ab a密码还是b密码（a为0，b为1）
closeorno是否关卡（关卡为0，不关为1）
data返回的数据
cardnohex返回的十六进制卡号
cardnodec返回的十进制卡号
成功返回TRUE，失败返FALSE;

那MESSAGEBOX怎么显示“读数据成功”？

下面是VB的程序，调试成功。与我用VFP编写的功能一样。懂VB的朋友看看我的程序错在哪里。
Dim Block As Long
Dim JH As Long
Dim AB As Long
Dim Closeorno As Integer
Dim BeepOrno As Integer
Dim pass As String
Dim rdata As String
Dim cardnodec As String
Dim cardnohex As String
Dim cardno As Double
Dim data As String
suc = WMTECH1611.ReadSpecifyWithPass(JH, Block, pass, AB, Closeorno, rdata, cardnohex, cardnodec)
If suc = 1 Then
Txtrece.Text = Txtrece.Text & "读取块" & Block & "成功！" & Chr(13) & Chr(10) & "data:" & rdata & Chr(13) & Chr(10) & "十进制卡号：" & cardnodec & Chr(13) & Chr(10) & "十六进制卡号：" & cardnohex & Chr(13) & Chr(10)
Text12.Text = Mid(cardnohex, 1, 2)
Text13.Text = Mid(cardnohex, 3, 2)
Text14.Text = Mid(cardnohex, 5, 2)
Text15.Text = Mid(cardnohex, 7, 2)
Else
Txtrece.Text = Txtrece.Text & "读取块" & Block & "失败！" & Chr(13) & Chr(10)
End If

jh机号，block块号，pass密码，ab a密码还是b密码（a为0，b为1），closeorno是否关卡（关卡为0，不关为1）这4个参数是指定的；
data返回的数据，cardnohex返回的十六进制卡号，cardnodec返回的十进制卡号这3个参数是返回值。
VARTYPE(CARDATA)，得到L，看来CARDATA是逻辑型。可是在VB和函数说明里都是字符形呀？！我糊涂了，晕倒！