Código Botón Acepar Agenda BB

Private Sub cmdAceptar_Click()
Dim Renglon As Integer
Renglon = 1
Do While ActiveSheet.Cells(Renglon, 1) <> ""
Renglon = Renglon + 1
Loop
ActiveSheet.Cells(Renglon, 1).Activate
ActiveSheet.Cells(Renglon, 1) = Renglon - 1
ActiveSheet.Cells(Renglon, 2) = txtNombre.Text
ActiveSheet.Cells(Renglon, 3) = txtPin.Text
txtNombre.Text = ""
txtPin.Text = ""
End Sub


'Para que este código trabaje los componentes de el formulario se deben llamar tal y como estan escritos en el código.