请高手看一下这段代码错在何处？

Question

Dim signobj     As New SignedData
  Dim Signer     As New Signer
  Dim st     As New Store
  st.Open CAPICOM_CURRENT_USER_STORE, CAPICOM_MY_STORE, CAPICOM_STORE_OPEN_READ_ONLY
  signobj.Content = Text1.Text
  Text2.Text = signobj.Sign(Signer, False, CAPICOM_ENCODE_BASE64)显示“the certificate store  does not contain any certificate"
  CAPICOM.dll已注册，

Answer 1

看样子是Store对象初始化出了错误。

Answer 2

有懂capicom.dll 数字签名的高手吗？

Answer 3

Dim st As New CAPICOM.Store

Answer 4

还是显示“the certificate store does not contain any certificate"
我认为可能要加  Dim dd As New Certificate
            Signer.Certificate = dd.Load(certificate_path, certificate_name，，，..这儿如何
写？