Excelのバージョンを取得する

<分類:値取得>
<使用例:Excelバージョンを取得する(番号のみで出力されるので注意>
<プログラム例>

Sub 呼び出し()
    Dim s As String
    s = 共通_Excelバージョン取得
    MsgBox ("Excelのバージョンは " & s & "です")

End Sub

Function 共通_Excelバージョン取得()
    共通_Excelバージョン取得 = Application.Version
End Function