API函数调用问题，请高手指教

我在模块里定义了这些函数，在窗口中如何调用？
'启动服务,打开串口，初始化Modem, 0为失败，非0为成功
'校验位， EvenParity :0,MarkParity:1,NoParity:2,OddParity:3,SpaceParity,4
'停止位 OneStopBit 0,OnePointFiveStopBits:1,TwoStopBits 2
'流控:NoFlowControl:0, CtsRtsFlowControl:1, CtsDtrFlowControl:2, DsrRtsFlowControl:3, DsrDtrFlowControl:4, XonXoffFlowControl:5
'最后一个参数csca为短信中心号码，如果直接用卡内已存的短信中心号码则用"card"（小写）
Public Declare Function SMSStartService Lib "SMSDLL.dll" (ByVal nPort As Long, ByVal BaudRate As Long, ByVal Parity As Integer, ByVal DataBits As Integer, ByVal StopBits As Integer, ByVal FlowControl As Integer, ByVal csca As String) As Long


这样可以对吗？
SMSStartService 1, 115200, 2, 8, 0, 0, card

这个就不知道怎么调用了
Public Type SMSMessageStruct
  Msg(0 To 255) As Byte '//短信内容
  PhoneNo(0 To 31) As Byte '//对方手机号码
  ReceTime(0 To 31) As Byte '//接收时间
End Type

Public Declare Function SMSGetNextMessage Lib "SMSDLL.dll" (ByRef smg As SMSMessageStruct) As Long

请高手指教，最好能给个源码，谢谢

API我用不来,就是VB窗口中有个COMMAND1 设为“启动” 在这按钮里，如何编程调用这个SMSStartService，和SMSGetNextMessage函数，急啊，跪求,这个文件我也有的，能否给个QQ相互交流一下谢谢 这样可以对吗？
SMSStartService 1, 115200, 2, 8, 0, 0, card

这个明显有问题，SMSStartService 这个是有返回值的。
card这个位置是要字符串的，card是啥？ 那要怎么处理呢？这些参数都是默认值，能详细点吗，具体参数上面有说明 怎么没有人来回复啊，急啊 关键可能得将
Dim card As String
改为
Dim card As String*100

补充：VB ,  控件