Using userform VBA to create a list

[snb]

Do you guys ever use the search function in this Forum ?

Private Sub btnOK_Click()
  cells(rows.count,4).end(xlup).offset(1).resize(,4)=array(txtFirstName,txtSurName,"snb","much simpler")  
End Sub