'測試注冊表讀寫
Sub TestRegistry()
 Set registry = CreateObject("stock.registry")
 Call registry.Open("software\weisoft\金字塔\settings")
 Call registry.WriteInt("id",123)
 result=registry.ReadInt("id")
 application.msgout result
End Sub

Sub TestRegistry()
 Set registry = CreateObject("stock.registry")
 Call registry.Open("software\weisoft\金字塔\vba")
  result=registry.ReadInt("id")
 application.msgout result
End Sub

這樣試試