List 5-1　口座にお金を振り込むメソッド

  1： Public Sub sendmoney(money As Currency, user As String)
  2：     'moneyで指定された金額をuserの口座に振り込むメソッド
  3： End Sub