vb的两个byref参数赋任意一个值均未相同的值.该如何处理

vb的两个byref参数赋任意一个值均未相同的值.

VB code

Function GetHeadXh(ByVal tmpXxdm As String, ByRef tmpHeadXh As String, ByRef tmpJxmc As String) As BooleanDim iLength As LongDim lpRegisterCodeCpu As StringDim lpRegisterCodeHid As StringDim lpRegisterCodeWid As StringDim AllId As String'Dim r As clsLicenseDim i As IntegerDim CpuLen As LongDim HidLen As LongDim WidLen As LongGetHeadXh = FalsetmpHeadXh = ""On Error GoTo errorHandle'tmpHeadXh = "wsrwerwer345435hhhhh"tmpHeadXh = getcpuid()MsgBox tmpHeadXh = tmpJxmctmpJxmc = "重"GetHeadXh = TrueExit FunctionerrorHandle:    MsgBox "获取ID信息时失败！或许你还没得到授权！请联系电话：15102856571解决~！~"    Exit FunctionEnd Function

就是这个,,MsgBox 弹出 true...而且最终返回 两个都是 重 字,,怀疑是两个参数为相同的地址..我是在java里面调用的..

[解决办法]
搞不清楚此处getcpuid啥意思，你写个VB程序调用它测试也是这样的结果吗？