VB中是采用COM接口的,支持双字节,而你使用CHAR*是单字节的,在VB中你应该这样定义
Declare Function GetLocalIp Lib "test.DLL" () As String
On Error Resume Next
Dim s As String *1023 // 分配内存,不能直接定义一个字符串变量。
s = GetLocalIp
MsgBox Err.Description