Visual basic -Error handler spørgsmål.

sub errorhandler()

Select Case err.Number
case 4711
    debug.print "something rotten happened"
End Select
end sub

sub errorproc()

on error goto err


exit sub
err:

errorhandler
'resume ?

end sub


/Jennemaan

Sub ErrorHandler()
  'Her sættes koden til din error handler
end Sub
Sub EnEllerAndenSub
on error goto err_EnEllerAndenSub
  'kode
  exit sub
err_EnEllerAndenSub:
  ErrorHandler 'Her kaldes din errorhandler

end Sub

Ja okay... den mulighed er der selvfølgelig... Men man kan ikke skrive noget i retning af On Error Goto my_error_sub... ??

nej

Her er en stump kode fra en loginform jeg har lavet, der kan du se hvordan jeg bruger en errorhandler.......

'This button logs you on the domain
Private Sub cmdVerify_Click()
'If there is an error the errorhandler catches it
On Local Error GoTo ErrorHandler
    'The text fileds where you enter your info
    vUser = txtUser.Text
    vPass = txtPass.Text
    vDomain = txtDomain.Text
    'Tells that it is a WinNT domain
    Set dso = GetObject("WinNT:")
    'Gets the variables into the ADSI and contacts the Domain Controler
    Set domain = dso.OpenDSObject("WinNT://" & vDomain & "", "" & vUser & "", "" & vPass & "", ADS_SECURE_AUTHENTICATION)
Exit Sub

'The errorhandler catches an error and tells the user what the error is
ErrorHandler:
    If Err = -2147023570 Then MsgBox "Unknown User or Bad Password", , "Login Failure"
    If Err = -2147467259 Then MsgBox "Unknown Domain", , "Login Failure"
Exit Sub

On Local Error GoTo ErrorHandler
    'Din kode
Exit Sub
'The errorhandler catches an error and tells the user what the error is
ErrorHandler:
    If Err = ditFejlNummer Then MsgBox "Din fejlbesked", , "Navn på msgbox"
Exit Sub
End Sub

Håber det kan bruges

Er der samtidig nogen af jer der ved hvordan ma stopper afviklingen af applicationen...??

Det er lidt spaghetti-agtigt, men bare skriv

END

så stoppen programmet

I har alle 3 fået point.. Håber det er iorden, og tak for hjælpen.