laufzeitfehler wenn wert nicht in der liste...

ich habe ein kleines Problem mit einer Suche via VB. In einer Maske kann der User das gesuchte Wort eingeben. Gebe ich nun einen Wert ein, der nicht in der Tabelle existiert, dann gibt es einen Laufzeitfehler. Kann ich diesen Fehler irgendwie abfangen (mit einer Meldung...nicht vorhanden oder so ?.)

Private Sub ComboBox1_Change()
'füllt die Combobox SUCHEN mit den Datensätzen
Dim r%
r = ComboBox1.ListIndex + 1
UserForm1.TextBox2.Text = Cells(r, 1)
UserForm1.TextBox3.Text = Cells(r, 2)
UserForm1.TextBox4.Text = Cells(r, 5)
UserForm1.TextBox5.Text = Cells(r, 6)
UserForm1.TextBox6.Text = Cells(r, 7)
End Sub

Vielen Dank

Stefan