Détecter architecture PC (Framework 4, 3.5 et antérieures)

'########################################################
' Credits 3DotDev from http://3dotdevcoder.blogspot.fr/
'########################################################

'########################################################
' Retourne architecture du PC (avec Framework 4 installé)
'########################################################
Public Function GetArchitecture() As String
    If Environment.Is64BitOperatingSystem Then
        Return "x64 Bits"
    End If
    Return "x32 Bits"
End Function

'##########################################################################
' Retourne architecture du PC (version antérieure au Framework 4 installée)
'##########################################################################
Public Function GetArchitecture() As String
    If Not Environment.GetFolderPath(Environment.SpecialFolder.SystemX86).ToUpper().Contains("SYSTEM32") Then
        Return "x64 Bits"
    End If
    Return "x32 Bits"
End Function