Visual Basic - Cambiar formato de la fecha

Como cambio este scrpts para que me deje la fecha en el siguiente formato:

20100915105238

'Declaración de las variables

Dim objFileSystem, objOutputFile, strOutputFile,WshShl, Shell, DayOfYear, vararcserve

'Definicion de los objetos

Set WshShl = WScript.CreateObject("WScript.Shell")
Set Shell = WshShl.Environment("user")
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Aquí definimos las variables de VMware que queremos incluir en el fichero

vararcserve = WshShl.ExpandEnvironmentStrings(("%COMPUTERNAME% ") & "Todas las sesiones Migradas.")

'En ésta variable guardamos el día actual en formato ordinal

DayOfYear = Round(((Now / 365.255) - (Year(Now) - 1900)) * 365.255)

'Cleanup Objects
Set WshShl = Nothing
Set Shell = Nothing

'Creamos la carpeta destino si no existe.

If objFSO.FolderExists("E:\Logs_Aplicaciones") Then
Set objFolder = objFSO.GetFolder("E:\Logs_Aplicaciones")
Else
Set objFolder = objFSO.CreateFolder("E:\Logs_Aplicaciones")
End If

'Generamos el fichero de salida con el formato del log único.

strOutputFile = "E:\Logs_Aplicaciones\APL_"&DayOfYear&".log"
Set objOutputFile = objFileSystem.OpenTextFile(strOutputFile,8,TRUE)
objOutputFile.WriteLine(Now & " | " & "9V" & " | " & "ES_0000" & " | " & "000000" & " | " & "0000000000" &" | " & "A" & " | " & vararcserve )
objOutputFile.Close
Set objFileSystem = Nothing

'Salimos

WScript.Quit(0)

Nadie me puede ayudar????

Me urge alguien qm ayude.

Necesito cambiar este formato 21/09/2010 11:17:19 por este 20100915105238

¿¿¿Primero que nada que formato es ese???

201009 --> hasta aki entiendo

¿¿¿pero que tiene que ver 20100915105238 con 21/09/2010 11:17:19, supongo que al menos sabes eso puesto que deseas ver esa fecha convertida en ese formato???

aver si entiendo 20100915105238
es: 20100915 por la fecha 2010/09/15
y 105238 por la hora 10:52:38 (solo que te equivocaste y pusiste 11:17:19)

si es asi porque no pruebas esto:

dim mi_fecha as string

mi_fecha = CStr(Year(Date)) + CStr(Month(Date)) + CStr(Day(Date)) + CStr(Hour(Time)) + CStr(Minute(Time)) + CStr(Second(Time))

el problema es que a los numeros no les pone el cero a la izquierda osea 1 en lugar de 01 (201014 en lugar de 20100104) pero eso lo solucionas haciendo una funcion que te le meta un cero a la izquierda cuando el un digito del 1 al 9....o si hay una funcion que hace eso pues genial)

salud!

Como se haria esa funcion? sabrias orientarme?

gracias

LA COMVERSION ES SIMPLE

USA EL FORMAT

Dim convertido As String

convertido = Format(Now, "YYYYMMDDHHNNSS")

'-------------------------- AÑOMESDIAHORAMINUTOSEGUNDO--

PUEDES PONERLO EN EL ORDEN QUE DESEES

PARA PONER UN CERO A LA IZQUIERDA

UTILIZA "RIGHT"

RIGHT(LOS CEROS + EL DATO, LA CANTIDAD DE DIGITOS A EXTRAER)
EJM:
DIM X AS STRING
X = RIGHT("0" & "9",2)
ENTONCES OBTIENES X= "09"