ＯＳ名を取得する

＜分類：値取得＞
＜使用例：ＯＳ名を取得する(ＮＴのバージョン番号で出力されるので注意＞
＜プログラム例＞

Sub 呼び出し()
    Dim s As String
    s = 共通_OS名取得
    MsgBox ("ＯＳ名は " & s & "です")

End Sub

Function 共通_OS名取得()
    共通_OS名取得 = Application.OperatingSystem
End Function