回答、ありがとうございます。
少し、分かりにくかったのですが、「Replace」を使って、文字列を置換することにしました。対象とする文字列に、文字列を代入しないという方法にしました。

'A の宣言 

A = Replace("aiu", Label1.Text, "")