需要引用HDSerialNumRead.dll 库。
Private Declare Function HDSerialNumRead Lib "c:\financial\HDSerialNumRead.dll" () As String

Public Function GetHDSerialNum() As String
Dim s As String
s = Trim(HDSerialNumRead())
GetHDSerialNum = Left(s, Len(s) - 1)
End Function