select columns A through D for each cell value in column A that equals a variable

[snb]

or simply use autofilter:

[VBA]
sub snb()
with columns(1)
.autofilter 1,"=" & textbox1.text
for each cl in specialcells(12)
if cl.row > 1 then
_ - _ - _
end if
next
.autofilter
end with
End sub[/VBA]