达人帮忙，VB写入注册表

哪位高手能用VB帮我把下面的内容写入注册表？
先检查注册表是否有下面的内容，没有则创建。我自己实在不会，只能求高手帮忙了，谢谢了！  Windows   Registry   Editor   Version   5.00   
    
  [HKEY_CLASSES_ROOT\Tencent]   
  @="TencentProtocol"   
  "URL   Protocol"="C:\\Program   Files\\Tencent\\QQ\\Timwp.exe"   
    
  [HKEY_CLASSES_ROOT\Tencent\DefaultIcon]   
  @="C:\\Program   Files\\Tencent\\QQ\\Timwp.exe,1"   
    
  [HKEY_CLASSES_ROOT\Tencent\shell]   
    
  [HKEY_CLASSES_ROOT\Tencent\shell\open]   
    
  [HKEY_CLASSES_ROOT\Tencent\shell\open\command]   
  @="\"C:\\Program   Files\\Tencent\\QQ\\Timwp.exe\"   \"%1\""   
    
    
  '这是他的classid   
  Windows   Registry   Editor   Version   5.00   
    
  [HKEY_CLASSES_ROOT\TimwpDll.TimwpCheck]   
  @="TimwpDll.TimwpCheck"   
    
  [HKEY_CLASSES_ROOT\TimwpDll.TimwpCheck\CLSID]   
  @="{ED4CA2E5-0EEA-44C1-AD7E-74A07A7507A4}"