Thanx to all of you, teachers... I'm sorry for being so dumb before this.. Hehe.. It was alreasdy solved.. But, the 8th column need to be changed ti 7th column.. K, thanx lot..
[Private Sub cmdCalculate_Click()
Dim i As Integer
Dim TAmt As Currency
TAmt = 0
For i = 1 To Grd.Rows - 1
TAmt = TAmt + Val(Grd.TextMatrix(i, 7))
Next
TAmt = Val(txtBudget.Text) - TAmt
txtBalance.Text = Format(TAmt, "0.00")
End Sub]