Private Function RegGetStringValue(ByVal hKey As Long, _
                                   ByVal sValue As String, _
                                   dwDataSize As Long) As String
 
   Dim sDataRet As String
   Dim dwDataRet As Long
   Dim success As Long
   Dim pos As Long
 
  'returns number of spaces based on dwDataSize
   sDataRet = Space$(dwDataSize)
 
  'get the size of the null terminating char
   dwDataRet = Len(sDataRet)
 
   success = RegQueryValueEx(hKey, sValue, _
                             ByVal 0&, dwDataSize, _
                             ByVal sDataRet, dwDataRet)
 
   If success = ERROR_SUCCESS Then
      If dwDataRet > 0 Then
 
         pos = InStr(sDataRet, Chr$(0))
         RegGetStringValue = Left$(sDataRet, pos - 1)
 
      End If
   End If
End Function

DWORD RegGetStringValue(HKEY hKey,LPTSTR sValue,DWORD* dwDataSize)
{
	BYTE *DataRet=(BYTE*)malloc(sizeof(*dwDataSize));
	DWORD *DataRetSize=(DWORD*)malloc(sizeof(DWORD*));
	long success;
 
	DWORD* Test=(DWORD*)malloc(sizeof(DWORD*));
 
	success = RegQueryValueEx(hKey,(LPCTSTR)sValue,NULL,NULL,DataRet,DataRetSize);
 
	Test = (DWORD*)DataRet; //Tried type casting, but returns rubbish values
 
	if(success == ERROR_SUCCESS)
		return (DWORD)*DataRet;
}