Vb.net

var1 = Val(TextBox1.Text)
var2 = Val(TextBox2.Text)
var3 = var1 + var2

no
datre
name
cell
area
city
slip no
med
amount
paid
,balance
total



Private Sub CommandButton1_Click()

emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(emptyRow, 1).Value = TextBox1.Text
emptyRow = WorksheetFunction.CountA(Range("B:B")) + 1
Cells(emptyRow, 2).Value = TextBox2.Text
emptyRow = WorksheetFunction.CountA(Range("C:C")) + 1
Cells(emptyRow, 3).Value = TextBox3.Text
emptyRow = WorksheetFunction.CountA(Range("D:D")) + 1
Cells(emptyRow, 4).Value = TextBox4.Text
emptyRow = WorksheetFunction.CountA(Range("E:E")) + 1
Cells(emptyRow, 5).Value = TextBox5.Text
emptyRow = WorksheetFunction.CountA(Range("F:F")) + 1
Cells(emptyRow, 6).Value = TextBox6.Text
emptyRow = WorksheetFunction.CountA(Range("G:G")) + 1
Cells(emptyRow, 7).Value = TextBox7.Text
emptyRow = WorksheetFunction.CountA(Range("H:H")) + 1
Cells(emptyRow, 8).Value = TextBox8.Text
emptyRow = WorksheetFunction.CountA(Range("I:I")) + 1
Cells(emptyRow, 9).Value = TextBox9.Text
emptyRow = WorksheetFunction.CountA(Range("J:J")) + 1
Cells(emptyRow, 10).Value = TextBox10.Text
emptyRow = WorksheetFunction.CountA(Range("K:K")) + 1
Cells(emptyRow, 11).Value = TextBox11.Text
emptyRow = WorksheetFunction.CountA(Range("L:L")) + 1
Cells(emptyRow, 12).Value = TextBox12.Text

Range("C19").Value = TextBox10.Text


End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub no_Click()

End Sub

Private Sub UserForm_Click()
TextBox1.Text = 1
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
End Sub

a = 1
a = a + 1