Visual Basic - 2 dudas

Hola tengo 2 dudas para ver si podéis echarme una mano:

1) se trata de un FILE, quiero mediante un boton sólo seleccionar los ficheros que sean .gif, para ello hago:

cadena = "*" & ".gif"

File1.FileName <> cadena

pero claro, esto sólo es válido para el fichero "*.gif", ¿cómo se ponen los comodines en visual basic?

2) quiero detectar errores, para ello hago.

On error goto mensaje
.
.
.

end sub

mensaje:
msgbox "error"

end sub

El problema es que me da error diciendo que no encuentra esa etiqueta, ¿dónde declaro las etiquetas?.

GRACIAS.

On error goto mensaje
.
.
.

'end sub Esto aqui no seria Exit sub

mensaje:
msgbox "error"

end sub