Sub PalettesApp() With Palettes MsgBox "You are using Corel PHOTO-PAINT " & .Application.Version End WithEnd Sub