Non riesco a sostituire la stringa semplice &
ho fatto coì:

Replace(txtcat.Text, "&", "&")

ma non sostituisce