'CREDITOS xD

Option Base 1
Option Explicit

Private Sub Form_Load()
    On Error GoTo Fail
    Dim bv(3)       As Long
    
    If bv(0) = 0 Then MsgBox "Ves como hay cosas importantes antes del Option Explicit???", vbCritical + vbOKOnly
    Exit Sub
Fail:
    MsgBox "Buen chico =D", vbInformation + vbOKOnly
End Sub

'CREDITOS xD

Option Compare Text
Option Explicit

Private Sub Form_Load()
    If "listillo" = "LISTILLO" Then
        MsgBox "Buen chico =D", vbInformation + vbOKOnly
    Else
        MsgBox "CHICO MALO!", vbCritical + vbOKOnly
    End If
End Sub