Formulario de búsqueda en visual basic no me funciona

[rdinovi]

Bueno lo que quiero que haga este mini formulario es sencillo, son 2 cosas que al entrar un registro busque si no se ha capturado antes y si ese "folio" ya se compro, estos folios estas en la hoja 2.

Perdon por no subir el archivo pero es muy cortito el codigo si infrigo la ley del foro mil disculpas.

Private Sub CommandButton1_Click()

Me.TextBox1.Text = ""

Me.TextBox2.Text = ""

End Sub

Private Sub CommandButton2_Click()

Dim foliod As String

Dim ultimafila As Double

Dim Rango As Range

ultimafila = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count

If TextBox1.Text = TextBox2.Text Then

Sheets("Hoja2").Activate

ActiveSheet.Range("A2").Select

If Range("A2:A200").Find(What:=TextBox2.Value _

, After:=ActiveCell, LookIn:=xlValues, LookAt:= _

xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False).Activate Then

Sheets("Datos").Activate

If Range("A3:A200").Find(What:=TextBox2.Value _

, After:=ActiveCell, LookIn:=xlValues, LookAt:= _

xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False).Activate Then

MsgBox ("El Folio ya esta registrado")

Else

Cells(ultimafila + 1, 1) = TextBox2.Value

End If

Else

MsgBox ("El Folio aun no se ha adquirido")

End If

Else

MsgBox ("Los Folios NO Coinciden")

End If

End Sub

Muchas Gracias por adelantado.

[shahuinto]

Hola Rdinovi, aqui te envio un archivo, ojala te sirva

Libro2.zip