Sempre sulla mia funzione della quale parlavo nel thread precedente ho l'istruzione "errLogon"

codice:
Option Compare Database
Option Explicit

Dim ws As Workspace
Dim db As Database
Dim qd As QueryDef
Dim RS As Recordset
Dim strSQL As String

Public Function cerca2() As Boolean

Dim FRM As Form
Set FRM = Forms("Pannello").vendite.Form

Set ws = DBEngine.Workspaces(0)
Set db = CurrentDb

strSQL = "SELECT * FROM Tab_Art_Vend1 WHERE BARCODEven= '" & FRM!barcode1 & "'"

Set RS = db.OpenRecordset(strSQL)

If RS.EOF Then
GoTo errLogon
End If
Forms!pannello.vendite!descrizione1 = RS!Descri

RS.Close
db.Close
Exit Function

errLogon:
MsgBox "ATTENZIONE! - Articolo sconosciuto!", 0, "Programma"

RS.Close
db.Close
End Function
che in caso di errore (se il codice "cerca2()" non trova una corrispondenza per il barcode inserito) mi da un messaggio (MsgBox) che dice "Articolo sconosciuto!"
Io però vorrei che invece di darmi un messaggio, mi eseguisse automatcamente un altro codice (ad esempio: codice3()).
Come devo sostituire l'istruzione "MsgBox"?
Thanks