How to In Visual Basic User form to add data into Excel Sheet

 

Private Sub CommandButton1_Click()
Sheet1.Cells(1, 1).Value = TextBox1.Text
Sheet1.Cells(1, 2).Value = ComboBox1.Text
MsgBox ("Record Added")
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem ("A")
ComboBox1.AddItem ("B")
End Sub