code :

Option Explicit
Dim a, b, c, i, s As Double
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
s = a
For i = 0 To c
s = s + (s * b / 100)
i = i + 1
Text4 = s
L9.Caption = " Göi " & a & " .VN§ sau " & c & " th¸ng göi víi l·i xuÊt " & b & "%/th¸ng l·i  thu vÒ lµ  :  " & s - a & " VN §ång  <=>   " & (s - a) / (1000000) & "TriÖu VN§   Tæng sè tiÒn thu vÒ ( c¶ vèn vµ l·i ) = " & s / (1000000) & " TriÖu VN§ "
Next
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub

Private Sub mhuongdan_Click()
L9 = ""
L9.Caption = " Chó ý :NhËp sè tiÒn gèc kh«ng cã dÊu c¸ch hoÆc dÊu chÊm hoÆc dÊu phÈy VD 100.000  nhËp lµ 100000          - Khi nhËp møc l·i xuÊt dÊu (,) ®­îc thay = dÊu (.)  VD 7,2% chØ nhËp 7.2 "

End Sub

Private Sub mnhaplai_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub

Private Sub mphongchu_Click()
MsgBox " Chuong trinh nay su dung hai phong vnarial & vnarialH", vbExclamation + vbOKCancel, "PHONG CHU"
End Sub

Private Sub mthoat_Click()
End
End Sub

Private Sub mthongtin_Click()
L9 = ""
L9.Caption = " Ch­¬ng tr×nh nµy do NguyÔn ViÖt B¾c vµ NguyÔn Minh ChiÕn - Nam Cao - KiÕn X­¬ng - Th¸i B×nh lËp tr×nh "
End Sub

Private Sub mtinh_Click()
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
s = a
For i = 0 To c
s = s + (s * b / 100)
i = i + 1
Text4 = s
L9.Caption = " Göi " & a & " .VN§ sau " & c & " th¸ng göi víi l·i xuÊt " & b & "%/th¸ng l·i  thu vÒ lµ  :  " & s - a & " VN §ång  <=>   " & (s - a) / (1000000) & "TriÖu VN§   Tæng sè tiÒn thu vÒ ( c¶ vèn vµ l·i ) = " & s / (1000000) & " TriÖu VN§ "
Next
End Sub