Macro que busque dentro de colomunas antes de ingresar un dato

Tengo columna b con valores ingresado. Ademas tengo un formulario de ingreso de informacion, quiero que al preciosar el boton de guardar el valor que le pongo a mi textbox no se guarde repetido y salga un mensaje diciendo que esta reptido el valor. Tengo una macros para eso el problema es que busca por valores intermdios

Si tubiera alex en un registro y despues quiero guardar ex... Me dice el registro ya esta no puede guardar (osea busca por caracteres y no por valor completo)

Dim rBuscado As Range
Dim strDato As String

If txt_dato = "" Then
MsgBox ("Ingrese valor")
Exit sub

Sheets("lista").Select

strDato = txt_dato.Text
Set rBuscado = Range("B1:B17200").Find(strDato)

If Not rBuscado Is Nothing Then
MsgBox rBuscado & " ya esta ingresado en la lista principal"

else

codigo guardar

End if