1. In place of:
Dim LastRow As Object

Set LastRow = Sheet1.Range("a65536").End(xlUp)

LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(1, 1).Value = TextBox2.Text
LastRow.Offset(1, 2).Value = TextBox3.Text

Use the TextBox's ControlSource property, e.g.:
Sheet1!A1


2. Here is another link for some guidance on a ListBox or
ComboBox.
http://support.microsoft.com/default...b;en-us;161598

HTH,
Merjet