[VB6] Gestione errori a dir poco scandalosa

[LMondi]

Ciao Debiru,
così funziona:

Private Sub Form_Load()
Start:
    On Error GoTo Errore
    If Len("ciao") > 0 Then
        MsgBox "Ciao"
    End If
    'On Error GoTo 0
    'Exit Sub
Errore:
    MsgBox "Errore"
    Err.Clear
    GoTo Start
End Sub