insertar HORA-MINUTO-SEGUNDO

Hola Hola, saludos!
Quiero insertar la hora como un string de nombre de un archivo tengo lo
siguiente (me quede a medias puesto que al parecer la funcion hora()ó
time() no existe:

Const strRuta As String = "C:\Documents and Settings\Javier\Escritorio\"
'Directorio donde se almacenarán los libros
Me.SaveAs Filename:=strRuta & "CE" & "-" & Day(Now()) & "-"
& Month(Now()) & "-" & Year(Now())& "_" time(now()),
FileFormat:=xlWorkbookNormal

Hice un desgloce (no se si se escribe asi=) de los componentes del
comando date(now()) ya que cuando manda ese string a que lo guarde excel
me da un error que no encuentra el directorio 24/09/2003 ya que es asi
como excel manda el string... ufa que complicado. Bueno en resumen no se
puede dar el comando date(now()) para que lo guarde como parte del
nombre del archivo ya que excel se confunde.
Y lo que yo hice fue descuartizar el comando date en sus partes date,
month, year, pero me tope con que no tiene el comando hora o algo
parecido, alguien me puede ayudar? quiero guardar el archivo con un formato:

"CE_24-09-2003_11-59-36_NombreClienteQueEstaEnCeldaB3.xls"

GRACIAS!
Javier Avila
System Adminsitrator

10 out of 5 doctors think it's OK to be schizofrenic.