Rekisteristä haku?

Sub Check()
HKEY_CURRENT_USER=&H80000001
HKEY_LOCAL_MACHINE=&H80000002

'Result = GetKeyValue(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\App Paths\soffice.exe", "", Regkey$)
Result = GetKeyValue(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\SystemBiosDate" , "", Regkey$)
print Regkey$
End Sub
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" ( ByVal hKey As long,ByVal lpSubKey As String, ByVal ulOptions As Long,ByVal samDesired As Long,phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public Function GetKeyValue(KeyRoot As long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean
Dim i As Long
Dim rc As Long
Dim hKey As Long
Dim KeyValType As Long
Dim tmpVal As String
Dim KeyValSize As Long

const KEY_ALL_ACCESS as long = &H3F
rc = RegOpenKeyEx(Keyroot, KeyName, 0, KEY_ALL_ACCESS, hKey)

If (rc ERROR_SUCCESS) Then GoTo GetKeyError

tmpVal = String$(1024, 0)
KeyValSize = 1024

rc = RegQueryValueEx(hKey, SubKeyRef, 0, KeyValType, tmpVal, KeyValSize)

If (rc ERROR_SUCCESS) Then GoTo GetKeyError

KeyVal = Left(tmpVal, KeyValSize)

GetKeyValue = True
rc = RegCloseKey(Key)
Exit Function

GetKeyError:
KeyVal = ""
GetKeyValue = False
rc = RegCloseKey(hKey)
End Function