VB 如何将string转换为LPSTR？

Question

我在VB中调用一个dll，dll中函数为long msg(LPSTR str),我如何将在VB中定义的string类型的参数转换为LPSTR传递到DLL函数中？

Answer 1

VB中声明函数的时候用ByVal:
Declare Function msg Lib "xxx.dll"(ByVal str As String) As Long
使用的时候：
dim a as string
a="参数"
call msg(a)

Answer 2

你这样试试，
DIM A AS string
A=****
long msg(A)