"run time error 91" with form

Check that something was actually found...

 Set c = Sheets("Customers").Columns(2).Find(FindMe, LookIn:=xlValues)

 If Not c in Nothing then
     Me.TextBox1.Value = c.Offset(0, 1).Value
 Else
     '// Some kind of error message
 End If