reloj en textbox

[grandote]

tengo un pequeñito problema:
necesito que en un textbox aparesca la hora acual de mi pc en un reloj digital actualizandose cada segundo.
lo que hago es decirle al textbox que tome el valor de una celda de excel en donde tengo el reloj digital que necesito y lo muestre cuando doy click a un commandbutton, pero aparece un numero que no tiene nada que ver.
¿que debo hacer?
este es mi codigo:

Private Sub CommandButton1_Click()
TextBox1 = Range("a2")
End Sub

Private Sub TextBox1_Change()
End Sub

en a2 tengo mi reloj hecho coneste codigo:

Sub Tiempo()
Range("A2").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "Tiempo"
End Sub
Sub auto_Open()
Call Tiempo
End Sub