'/////////////////////////////////////////////////
'Global変数をTxtボックスに
'/////////////////////////////////////////////////
Private Sub Form_Load()
  CNT = 0
  Do Until CNT = 4
  Me.Txt_name(CNT).Text = STAF(CNT)
  Me.Txt_pay(CNT).Text = PAY(CNT)
  CNT = CNT + 1
  Loop
End Sub

'/////////////////////////////////////////////////
'登録
'/////////////////////////////////////////////////
Private Sub Command1_Click()
  CNT = 0
  Do Until CNT = 4
  STAF(CNT) = Me.Txt_name(CNT).Text
  PAY(CNT) = Me.Txt_pay(CNT).Text
  CNT = CNT + 1
  Loop
  Call write_data
End Sub