Dim sDate As String
Dim i As Long
 
' Langes Datum
sDate = "Montag, 25. Oktober 2010 13:53"
 
' Wochentag ausfiltern  
sDate = Trim$(Mid$(sDate, InStr(sDate, ",") + 1))
 
' Uhrzeit ausfiltern und Leerzeichen entfernen
sDate = Replace(Left$(sDate, InStrRev(sDate, " ") - 1), " ", "")
 
' Monatsnamen ersetzen    
For i = 1 To 12
  sDate = Replace(sDate, MonthName(i), Format$(i, "00") & ".")
Next i
 
' Ergebnis
MsgBox sDate

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de