Dim 注文者電話番号 As String Dim 届け先電話番号 As String
注文者電話番号 = TextBox1.Text 届け先電話番号 = 注文者電話番号 TextBox2.Text = 届け先電話番号