fechas

[engonga]

Código:

Dim Dia, Mes, Hora, Minuts, Segons
if Day(Date) <10 Then
	Dia = 0 & Day(Date)
Else 
	Dia = Day(Date)	
	End If
if Month(Date) <10 Then
	Mes = 0 & Month(Date)	
Else
	Mes = Month(Date)
	End If
If Hour(Time) <10 Then
	Hora = 0 & Hour(Time)
Else
	Hora = Hour(Time)
	End If
If Minute(Time) <10 Then
	Minuts = 0 & Minute(Time)
Else
	Minuts = Minute(Time)
	End If
If Second(Time) <10 Then
	Segons = 0 & Second(Time)
Else
	Segons = Second(Time)
	End if
Data = Dia & Mes & Year(Date) & Hora & Minuts & Segons

esto de tevuelve

por ejemplo

290204225403

si quieres lo puedes separar con / i sacarle los minutos y los segundos. Y no tienes los problemas del valor en blanco si la hora enpieza por 0