no coinciden los tipos

[Ciberdanny]

HOLA, PUES ESTOY TRATANDO DE METER UNA CLAVE DE REGISTRO CON EL VALOR QUE APAREZCA EN UN TEXTBOX Y ME DICE QUE NO COINCIDEN LOS TIPOS ¿ME PODRIAN AYUDAR A SABER DONDE ME ESTOY EQUIVOCANDO PORFA?.

MI CODIGO ES ESTE:

Private Sub Command1_Click()
Set reg = CreateObject("WScript.Shell")
reg.RegWrite "HKEY_CURRENT_USER\Prueba\Prueba", "URL.Text", "REG_DWORD"
MsgBox "HEcho"
End Sub

Private Sub URL_Change()

End Sub

COMO LES COMENTO EL PROBLEMA ES QUE CUANDO LE DOY PLAY ME DICE QUE NO COINCIDEN LOS TIPOS PERO LA CLAVE DE REGISTRO "PRUEBA" SI SE CREA, PERO EL CONTENIDO NO.

POR FAVOR AYUDA!!!!

GRACIAS