¿Cómo se fórmula el siguiente código?

Tengo el siguiente formulario de búsqueda. Necesito poner un mensaje de "No existe el registro" cuando el programa realice la búsqueda y no lo encuentre. El problema es que cuando existe el registro también aparece el mensaje "No existe el registro".

Private Sub CommandButton7_Click()
Dim i As Long
Hoja3.Select
For i = 2 To 50000
If Hoja3.Cells(i, 9) = Me.TextBox8 Then
Me.ComboBox3 = Hoja3.Cells(i, 3)
Me.ComboBox4 = Hoja3.Cells(i, 4)
Me.Original = Hoja3.Cells(i, 7)

Else
MsgBox "El registro no existe", vbCritical, "Almacén"
Exit Sub
End If
Next i

End Sub