String aus Zelle

ich habe in einer Tabelle A in einer Spalte Wörter stehen, nach welchen ich in einer anderen Tabelle B suchen möchte.

Derzeit hole ich mir den text aus Tabelle A in eine Variable
mit: Variable = Range ("A1").Value und setze diese variable in die Find-Funktion: Find(What:=Variable, After:..... ein,
was aber vermutlich deshalb nicht klappt, da die Leerzeichen in der Zelle nach dem Wörtern "mitgesucht" werden und deshalb nicht gefunden wird, obwohl das gesuchte Wort in Tabelle B vorhanden ist...
Wie bekomme ich den nackten text aus einer Zelle??