如下部分注册表的代码：
Private Sub Command1_Click()
Dim phkResult As Long
Dim Iresult As Long
Dim sa As SECURITY_ATTRIBUTES
Dim Create As Long
Call RegCreateKeyEx(HKEY_LOCAL_MACHINE, "SAM\MyApi", 0, "", REG_OPTION_NON_VOLATILE, _
KEY_ALL_ACCESS, sa, phkResult, Create)
Iresult = RegSetValueEx(phkResult, "yx", 0, REG_SZ, "yue1975", CLng(Len("yue1975") + 1))
'RegCloseKey phkResult
在网上找到的代码，但是运行后能够在HKEY_LOCAL_MACHINE下建立sam及myapi 但是在yx的值中显示的是乱码而不能显示yue1975,这是为什么啊？请高手们一定要帮帮我啊。