Private Declare Function GetVersion Lib "kernel32" () As LongConst HKEY_LOCAL_MACHINE = &H80000002' Return the name of the registered organization'' Requires the GetRegistryValue functionFunction GetRegisteredOrganization() As String Dim regKey As String ' this information is held in a Registry key whose path ' depends on the operating system installed If GetVersion() >= 0 Then ' this is a Windows NT system regKey = "SoftwareMicrosoftWindows NTCurrentVersion" Else ' this is a Win9x system regKey = "SoftwareMicrosoftWindowsCurrentVersion" End If GetRegisteredOrganization = GetRegistryValue(HKEY_LOCAL_MACHINE, regKey, _ "RegisteredOrganization", "")End Function

Top Careers at Microsoft
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job