' Return a collection of strings that identify the installed versions of the ' .NET Framework' Note: this function require the EnumRegistryKeys and EnumRegistryValues ' functions' Example:' Dim version As Variant' For Each version In GetDotNetFrameworkVersions' Debug.Print version' NextFunction GetDotNetFrameworkVersions() As Collection Const HKEY_LOCAL_MACHINE = &H80000002 Dim keyName As String keyName = "SoftwareMicrosoft.NETFrameworkpolicy" Set GetDotNetFrameworkVersions = New Collection Dim versions As Collection, version As Variant ' get the collection of major.minor versions Set versions = EnumRegistryKeys(HKEY_LOCAL_MACHINE, keyName) Dim builds As Collection, build As Variant ' for each version, get the installed builds, and finally get the complete ' version string For Each version In versions Set builds = EnumRegistryValues(HKEY_LOCAL_MACHINE, _ keyName & "" & version) For Each build In builds GetDotNetFrameworkVersions.Add (Mid(version, 2) & "." & build(0)) Next NextEnd Function