Probá esta función a ver si te sirve .salu2
Código:
Private Function ver() As Variant
Dim OExcel As Object
Dim TempVer As Variant
Set OExcel = CreateObject("Excel.Application")
On Error Resume Next
TempVer = OExcel.version
If Err = 0 Then
ver = TempVer
End If
OExcel.quit
Set OExcel = Nothing
Err.Clear
End Function
Private Sub Form_Load()
MsgBox ver
End Sub