[VB6] Gestione errori a dir poco scandalosa

[LMondi]

Debiru,
prova in questo modo:

Private Sub Command1_Click()
    On Error GoTo ErrHandler
    If Len("ciao") > 0 <> "" Then
        MsgBox "Ciao"
    End If

ErrHandler:
    If Err.Number <> 0 Then
        MsgBox Err.Description & Chr(13) _
        & "Si è verificato un errore nella procedura ...", vbInformation, "...."
        Err.Clear
    End If
End Sub