Select Case Val(Application.Version)
    Case 7:    iVersion = "Microsoft Excel 95"
    Case 8:    iVersion = "Microsoft Excel 97"
    Case 9:    iVersion = "Microsoft Excel 2000"
    Case 10:   iVersion = "Microsoft Excel XP"
    Case 11:   iVersion = "Microsoft Excel 2003"
    Case 12:   iVersion = "Microsoft Excel 2007"
    Case 14:   iVersion = "Microsoft Excel 2010"
    Case Else: iVersion = "Неизвестно ..."
End Select
MsgBox "Работа идёт в " & iVersion