take a button int text field name it as Grand Total Button then double click it
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim Tot, Tot1, Tot2, Tot3, Tot4, Gtot As Double
Tot = Val(TotalTextBox.Text)
Tot1 = Val(Total1TextBox.Text)
Tot2 = Val(Total2TextBox.Text)
Tot3 = Val(Total3TextBox.Text)
Tot4 = Val(Total4TextBox.Text)
Gtot = Tot + Tot1 + Tot2 + Tot3 + Tot4
Grand_TotalTextBox.Text = Val(Gtot).ToString
End Sub