Visual Basic - Subsanar un error

Hola a todos , yo estyo haciendo un programa q cuando mueves una barra empieza a cambiar de color pero llega un momento q no hay mas colores y da un error y se deja de ejecutar, como pordria hacer para q cuando estuvieese el error poner un msgbox poniendo error y ya esta . gracias...

solo pon esto despues de tu funcion

On Error GoTo Solucion
'
'
'tus
'lineas
'de
'codigo
'
'
Solucion:
Err.Clear
MsgBox "SE ACABO", vbOKOnly, "ERROR"
End

Asi me sale
q cada ves q doy al boton para cambiar de color me de el error y yo lo unico q quiero es q cuando se terminene los colores dar un error.
Gracias.
esto es lo q he hexo yo pero estamos en las mismas
Private Sub VScroll1_Change()
Form1.BackColor = QBColor(VScroll1.Value)
On Error GoTo cac
cac:
MsgBox "erro", vbCritical
End Sub

Avy, lo que sucede es que antes de la etiqueta de erro debes poner un exit sub sino, vas a pasar siempre por las líneas del messagebox
En realidad creo que usando QBColor te convendría limitar el VScroll para que no supere la cantidad de colores que devuelve la función QBColor. Son 16 colores en total (con Base 0)

Private Sub Form_Load()
VScroll1.Max = 15
VScroll1.Min = 0
End Sub

Private Sub VScroll1_Change()
On Error GoTo cac
Form1.BackColor = QBColor(VScroll1.Value)
Exit Sub
' ya este label de error sería innecesario, dado que no es posible error alguno, cuando se llega al final del VScroll, se acaban los colores.
cac:
MsgBox "Te quedaste sin colores", vbCritical
End Sub