Private Sub Command1_Click()
Dim zcb

Dim wss As Variant '定义调用脚本所需的变量wss

 Set wss = CreateObject("WScript.Shell") '调用WS

 zcb = wss.Regwrite("HKEY_CURRENT_USER\Software\pc354.com", "1234", "REG_SZ") '把注册表H.._C..._C...\S...\下面的pc354.com这个项修改成1234并设置为字符型数据
End Sub

Private Sub Command2_Click()
Dim zcb

Dim wss As Variant '定义调用脚本所需的变量wss

 Set wss = CreateObject("WScript.Shell") '调用WS

 zcb = wss.RegRead("HKEY_CURRENT_USER\Software\pc354.com") '读取注册表H.._C..._C...\S...\下面的pc354.com这个项的值
 Text1.Text = zcb '把1234这个值输出到文本框
End Sub

运行程序时判断注册表键是否存在，不存在就自动创建并赋值

Private Sub Form_Load()
On Error GoTo ErrorMsg
Dim WshShell As Object, temp As String
Dim wss As Variant '定义调用脚本所需的变量wss
Dim zcb
Set WshShell = CreateObject("wscript.shell")
temp = "HKEY_CURRENT_USER\Software\pc354.com"
WshShell.RegRead (temp) '如果无法读取直接产生一个错误，进入到errormsg显示信息

'下面是这个值存在显示的功能：读取值到text1中
'MsgBox "找到：" & temp
    Set wss = CreateObject("WScript.Shell") '调用WS
        zcb = wss.RegRead("HKEY_CURRENT_USER\Software\pc354.com") '读取注册表H.._C..._C...\S...\下面的pc354.com这个项的值
    If zcb <> "" Then
        Text1.Text = zcb '把pc354.com这个值输出到文本框
    End If
Exit Sub
ErrorMsg: '如果这个值不存在，就直接创建，并赋值为 d:\
   Set wss = CreateObject("WScript.Shell") '调用WS
   zcb = wss.Regwrite("HKEY_CURRENT_USER\Software\pc354.com", "d:\", "REG_SZ")
End Sub