if b=".Text" then a=Text1.Text
としてやる。