Visual Basic - On Error GoTo

Private Function LimpiarVacio()
On Error GoTo Suk
Open archivo For Input As #1
Line Input #1, buf 'leo línea completa
Close #1
flag = True
End Function
Suk:
flag = False
End Function

cuandop llega a esta funcion me genera un error que dice:

Error de compilacion: Etiqueta no definida

Particular mente no le veo nada malo me podrian decir que esta pasando!?

No veo porqué la haces como Function, si no te devuelve ningún valor hacia LimpiarVacio. Yo la haría como Sub. Pero antes de salir con Exit Sub (la End Function que tenés dos veces) tienes que restablecer el desvío normal de los errores con "On Error GoTo 0", pues si se te produce un error en otra parte del programa no encontrará "Suk:" que está (correctamente) definida dentro del procedimiento.

function .........()

on goto error controlerror

. .. . .. . . .. .
.... .. . . . .. .. .

exit function

controlerror:
procedimiento de error
end function

Otro detalle: dentro de lo que sigue a Suk: tienes que finalizar con Resume.

Private Function LimpiarVacio()
On Error GoTo Suk
Open archivo For Input As #1
Line Input #1, buf 'leo línea completa
Close #1
flag = True
Exit Function ' Y no End Function
Suk:
flag = False
Resume Next ' Faltaba esto
End Function ' Aquí sí finaliza la función.

pero, como te dice AlbertoV, ¿para qué haces LimpiarVacio como función, si no retorna nada? podrías cambiarlo a Sub.

bueno la idea de esta funcion es averiguar si el archivo esta vacio, si es asi afuera hay procedimientos correspondientes a ello. gracias de todos modos.. XD