我想编一个简单的程序，关于期酬计算，我才学VB，还没有入门，
每年单位给个人帐户存5000，每年从个人帐户支付20％现金到个人手上，

Private Sub 执行_Click()
Dim j As Integer, year As Integer, money As Double
year = Val(Text1.Text)
Text2 = 5000
For j = 1 To year
money = money + 5000 * j * 0.2
Next j
Text3.Text = 5000 * year - money
End Sub
题意不明显

是这样的，第一年单位存5000，个人可以拿到20％，即1000，第二年单位再存5000，帐户余额就为9000，给人再拿20％，即1800，帐户余额7200，依此类推，谢谢哈

Private Sub 执行_Click()
Dim j As Integer, year As Integer, money As Double
year = Val(Text1.Text)
For j = 1 To year
money = money + 5000
Text2 = money * 0.2
Text3.Text = money - Text2.Text
money = Text3.Text
Next j
End Sub

帮忙看看这样要得不？