Sub dural()
    MsgBox Application.Version
End Sub

Sub Excel_Version()

Select Case (Val(Application.Version))

Case 8
        MsgBox "You use Excel 97"
Case 9
        MsgBox "You use Excel 2000"
Case 10
        MsgBox "You use Excel 2002"
Case 11
        MsgBox "You use Excel 2003"
Case 12
        MsgBox "You use Excel 2007"
Case 14
        MsgBox "You use Excel 2010"
Case 15
        MsgBox "You use Excel 2013"
End Select

    MsgBox "Welcome to Microsoft Excel version " & _
    Application.Version & " running on " & _
    Application.OperatingSystem & "!"

End Sub