مشکل در مقداردهی در رجیستری

[alizahedi]

سلام یه درخواست فوری دارم
واسه قرار دادن مقدار در رجیستری مشکلی ندارم مگر اینکه با متغیرهای از نوع REG_SZ که باس داده ی رشته ای توش قرار بگیرند
این کد داخل دکمه است که هرمقداری که بش میدم داخل متغیر بصورت دیگه نشون میده و عمل نمکینه
ممنونم میشم راهنمایی کنین
فعلا بای
Dim hKey As Long
Dim subkey As String
Dim buffer As Long
Dim retval As Long
Dim secattr As SECURITY_ATTRIBUTES
subkey = "SYSTEM\CurrentControlSet\Control"
secattr.nLength = Len(secattr)
secattr.lpSecurityDescriptor = 0
secattr.bInheritHandle = 1

retval = RegCreateKeyEx(HKEY_LOCAL_MACHINE, subkey, 0, "", 0, KEY_WRITE, secattr, hKey, ByVal 0&)

If retval <> 0 Then
Exit Sub
End If
adad = Val(Text1.Text)
buffer = &H1000 'Value for TimeOut
RegSetValueEx hKey, "WaitToKillServiceTimeout", 0, REG_SZ, 1000, Len(buffer)
RegCloseKey hKeyDim hKey As Long
Dim subkey As String
Dim buffer As Long
Dim retval As Long
Dim secattr As SECURITY_ATTRIBUTES
subkey = "SYSTEM\CurrentControlSet\Control"
secattr.nLength = Len(secattr)
secattr.lpSecurityDescriptor = 0
secattr.bInheritHandle = 1

retval = RegCreateKeyEx(HKEY_LOCAL_MACHINE, subkey, 0, "", 0, KEY_WRITE, secattr, hKey, ByVal 0&)

If retval <> 0 Then
Exit Sub
End If
buffer = 1000 'Value for TimeOut
RegSetValueEx hKey, "WaitToKillServiceTimeout", 0, REG_SZ, buffer, Len(buffer)
RegCloseKey hKey

[babyy]

سلام

ماجول های برنامه هم بزار