Function Reg_Add(hkeypath As String, value As String) 'Function to Add a 
' Regestry Key
On Error GoTo Error_Label
Dim ObjAdd
Set ObjAdd = CreateObject("wscript.shell")
ObjAdd.regwrite hkeypath, value
 
Exit Function
Error_Label: MsgBox "Error : " & Err.Number & Chr(13) & Err.Description
End Function

.......
key1 = "1"
 
Reg_Add _
  "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA", _
  key
.......