قيمه ذات طول صفري

السلام عليكم ورحمة الله وبركاته

كيف يتم اضافة قيمه ذات طول صفري

الكود للتعديل

Private Sub Command1_Click()

Dim Reg As Object

Set Reg = CreateObject("wscript.shell")

Reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\MediaPlayer\ Preferences\SendUserGUID", 0, "REG_DWORD"

End Sub

والسلام عليكم