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

[vbx3m]

Si quieres q se muestre la hora utiliza un Timer y colocas el intervalo a 1

Código:

Private Sub Timer1_Timer()
Text1.Text = Time
End Sub

[ideasking]

Lo que estas haciendo es en excel? o directamente en Visula Basic?

[parmijo]

Bueno despues de Tanto buscar Logre Hacer algo de lo que necesitas:
esto me funciona :

Ademas de Lo que tienes desbes crear 2 macros en un Modulo y escribe en cada una de ellas lo siguiente:
Sub Macro4()
'
' Macro4 Macro
' Macro grabada el 22-02-2007 por Pedro Armijo M
'
UserForm1.TextBox1 = Empty
UserForm1.TextBox1 = Range("a2").Value
Application.OnTime Now + TimeValue("00:00:01"), "Macro5"

Rem Este ejemplo ejecutará Macro4 en 01 segundos a partir de este momento.

End Sub
Sub Macro5()
'
' Macro5 Macro
' Macro grabada el 22-02-2007 por Pedro Armijo M
'
UserForm1.TextBox1 = Empty
UserForm1.TextBox1 = Range("a2").Value
Application.OnTime Now + TimeValue("00:00:02"), "Macro4"

Rem Este ejemplo ejecutará Macro5 en 02 segundos a partir de este momento.

Ademas tienes que agregar este codigo
Private Sub CommandButton1_Click()
Application.OnTime Now + TimeValue("00:00:01"), "Macro4"
End Sub

Una Vez que tienes todos ejecuta tu codigo:
Sub Tiempo()
Range("A2").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "Tiempo"
End Sub
Sub auto_Open()
Call Tiempo
End Sub
Despues de esto ejecuta El formulario y listo darle al boton y debería funcionarte

[seba123neo]

no hay que hacer tanto quilombo ,pone un textbox y un timer con intervalo 1000

y de codigo en el timer pone:

text1.text=time

y listo.