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;
}