[VB6] Comandi di un MsgBox in un modulo

[zorro77]

Slave a tutti
sto cercando di inserire in un modulo tutti i msgbox, in modo da raggrupparli e modificarli velocemente tutti quando necessario.

Nel modulo ho inserito

Public Sub avvUscita(bio As String, conn As ADODB.Connection)
Dim msg
msg = MsgBox("Stai per uscire da " & bio & "." & vbCrLf & "Sicuro di voler uscire?", vbYesNo + vbDefaultButton2, "USCITA")
If msg = vbYes Then
        Call clear
        CloseConnection conn
    ElseIf msg = vbNo Then
        Cancel = 1
    End If

End Sub

non capisco perchè mi dice che Cancel non è definito quando invece usandolo nel form non mi da problemi