Visual Basic - por ke no detecta error???????????

hola programadores miren tengo un problemita estoy trabajando con imagenes y tengo un pequeño sub donde no me detecta el error osea me dice que hay error pero no lo puedo controlar miren este es el codigo

private sub carga_img ( )
On Error GoTo Err:

im.Picture = LoadPicture(App.Path & "\img\1.jpg")

Exit Sub

Err:
im.Picture = LoadPicture(App.Path & "\im\5.jpg")
end sub

estoy cargando una imagen y quiero ke si no existe me carge una ke tengo por de faul pero no puedo manipular el error por ke no me deja

de antemano gracias y espero su respuesta

te sobran los dos puntos de

On Erro Goto ERR