Schleife mit Suchfunktion

Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer
Cells(Range("A65536").End(xlUp).Row, 1).Select
For a = 1 To Cells(Range("A65536").End(xlUp).Offset(1, 0).Row, 1)
If ActiveCell.Value = TextBox1.Value Then b = ActiveCell.Offset(0, 2).Value: GoTo weiter
ActiveCell.Offset(-1, 0).Select
Next a
weiter:
Cells(Range("A65536").End(xlUp).Offset(1, 0).Row, 1).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value + b
ActiveCell.Offset(0, 2).Value = TextBox3.Value
MsgBox b
End Sub

Dieser Code steht in einer UserForm.
Es soll die letzte gefüllte Zeile markiert werden, und wenn der Wert der Zelle mit dem Wert in der Textbox1 übereinstimmt, soll der Wert rechts daneben (Menge) in eine Variable (b) übernommen werden.
Mein Problem ist aber, daß die Variable b immer Wert 0 bekommt, obwohl es zur Übereinstimmung kommt.
Ich fülle durch die Userform immer die nächste freie Zeile und möchte dann durch die Schleife erreichen, daß von unten nach oben nach einem Wert gesucht wird, und bei der ersten Übereinstimmung die Menge in der Variablen gespeichert werden soll.
Kann mir da jemand helfen.
Grüsse
Marco