VB приложение, которое создает записи в Excel

Question

Я создал форму макроса с пользовательским вводом, которая добавляет значение в Excel. У меня есть 7 ящиков, и каждая запись помещается в отдельный столбец, но теперь я хотел бы преобразовать в .exe. Мне нужно переписать мой код на VB, но я не знаю об этом.

Может кто-нибудь продемонстрировать, как, например, должен выглядеть мой код первого текстового поля, если мне нужно сделать запись в Excel с приложением VB? Я готов учиться и делать это сам, но я был бы признателен, если бы кто-то смог продемонстрировать первую строку.

Захват моей пользовательской формы

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = Name.Value
    End Sub
    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Value = Surname.Value
    End Sub
    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Value = Address.Value
    End Sub
    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
        Cells(Cells(Rows.Count, 4).End(xlUp).Row + 1, 4).Value = City.Value
    End Sub
    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
        Cells(Cells(Rows.Count, 5).End(xlUp).Row + 1, 5).Value = Phone.Value
    End Sub
    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
        Cells(Cells(Rows.Count, 6).End(xlUp).Row + 1, 6).Value = Status.Value
    End Sub
    Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged
        Cells(Cells(Rows.Count, 7).End(xlUp).Row + 1, 7).Value = Occupation.Value
    End Sub

   Name.Value = ""
   Surname.Value = ""
   Address.Value = ""
   City.Value = ""
   Phone.Value = ""
   Status.Value = ""
   Occupation.Value = ""

   End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        UserForm1.Hide
    End Sub

End Class