Read Registry Dword Value

Hello;
i have a code.For Read Dword registry Value..

If lDataTypeValue = REG_DWORD Then
td = Asc(Mid$(sValue, 1, 1)) + &H100& * Asc(Mid$(sValue, 2, 1)) + &H10000 * Asc(Mid$(sValue, 3, 1)) + &H1000000 * CDbl(Asc(Mid$(sValue, 4, 1)))
sValue = Format$(td, "000")
End If

And its working,But maximum chars = 3 , i need 5 chars.



Thank you....

Attached Images

 

Attached Files

• ellreg.bas (11.2 KB)