一小问题，顶者有分

Public Function read() As String
Dim status As String
Dim temp As String
Dim card As String
status = opencard()
If status = 0 Then '卡具打开成功
   Dim pRegion As String
   pRegion = Space$(2)
   pRegion = "XM"
   Dim pCardno As String
   pCardno = Space$(18)
   Dim pCardtype As String
   pCardtype = Space$(1)
   Dim pErrmsg As String
   pErrmsg = Space$(1024)
   status = ykt_readcardno(pRegion, "1111", "111111", pCardno, pCardtype, pErrmsg)
   status = closecard()  '否则关闭卡具
End If
card = pCardno
‘在这个地方，如果print card ，正确无误
End Function
'我要点击按钮，read()是应该有个返回值的。为什么没有呢，要怎样才能把上面方法的pCardno返回呢
Private Sub Command1_Click()
Print read()
End Sub