Private Sub CommandButton1_Click()
Range("C1:C7").ClearContents
Range("C1").Value = Application.Version
Dim aaa As String
Dim bbb As Integer
Dim ccc As Double
Dim ddd As Variant
aaa = Range("C1").Value
bbb = Range("C1").Value
ccc = Range("C1").Value
ddd = Range("C1").Value
On Error Resume Next
If Application.Version = aaa Then Range("C2").Value = "ok"
If Application.Version = bbb Then Range("C3").Value = "ok"
If Application.Version = ccc Then Range("C4").Value = "ok"
If Application.Version = ddd Then Range("C5").Value = "ok"
Dim laversion As Variant
laversion = Application.Version
If laversion = 12 Then
Range("C6").Value = "Excel 2007"
End If
If laversion = 11 Then
Range("C6").Value = "Excel 2003"
End If
Dim laversion2 As Double
laversion2 = Application.Version
If laversion2 = 12 Then
Range("C7").Value = "Excel 2007"
End If
If laversion2 = 11 Then
Range("C7").Value = "Excel 2003"
End If
End Sub