bError = .F.
On error bError = .T.
loExcel = createobj("excel.application")
If bError
   MessageBox("Error")
   ...
   Return
Endif
MessageBox("Version: " + loExcel.Version)
On Error