Mistři v programování na #hovnokod

Visual Basic #596

Public appWorld As Excel.Application
Public wbWorld As Excel.Workbook
Sub Setup() 
On Error Resume Next 'ignore errors
Set appWorld = GetObject("Excel.Application")
If Err.Number <> 0 Then
Set appWorld = CreateObject("Excel.Application") 'run it
End If
Err.Clear
End Sub

HovnoKod,