Sort lines by date (DD.MM.YYYY) - date

Question

Is there a possibility to sort lines within a textfile by date and save the results to another output file? Each line begins with a date (DD.MM.YYYY). Delimiter between date and text is Tab (no space). I prefer a solution in VBS.
Source
25.11.1968 Death of Upton Sinclair
14.06.1946 Birthday Donald Trump
25.11.2016 Death of Fidel Castro
14.06.1969 Birthday Steffi Graf
01.01.2017 New Year
to the new order (target)
01.01.2017 New Year
14.06.1946 Birthday Donald Trump
14.06.1969 Birthday Steffi Graf
25.11.1968 Death of Upton Sinclair
25.11.2016 Death of Fidel Castro
Order to change and compare: Month-Day-Year

Answer 1

Here, it's not pretty and it doesn't sort in reverse order as you wanted, but hopefully this will teach you something if you learn like I do...
Option Explicit
Const fsoForReading = 1
Const fsoForWriting = 2
inputFile = "input.txt"
outputFile = "output.txt"
dim inputFile, outputFile, lineCount, file, fline, lDate, lYear, lMonth, lDay, iDate,output
dim a, d, i
dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
set a = CreateObject("System.Collections.ArrayList")
set d = CreateObject("Scripting.Dictionary")
'open up the file for reading
Set objFile = objFSO.GetFile(inputFile)
Set file = objFile.OpenAsTextStream(fsoForReading,-2)
Do Until file.AtEndOfStream
fline = file.ReadLine 'get the line
lDate = left(fline,10) 'get the date portion at the beginning (the first 10 characters)
lYear = split(lDate,".")(2) 'parse the year from the date
lMonth = split(lDate,".")(1) 'parse the month
lDay= split(lDate,".")(0) 'parse the day
iDate = lYear + lMonth + lDay 'put together the "index date". The date needs to be formatted as yyyymmdd so it is sortable
a.add iDate 'add the index date to an array for easier sorting
d.add iDate, fline 'add the index date and line contents to a dictionary object
Loop 'go to the next line in the file
a.Sort() 'sort the array of dates
for each i in a 'loop through the array of dates
output = output + d(i) + vbCrlf 'add the appropriate dictionary object to the output
Next
call writeFile(output) 'write the file
file.Close
WScript.Quit 0
sub writeFile(fc)
dim fso
'fn = fn + ".hl7"
Set fso = CreateObject("Scripting.FileSystemObject")
if (fso.FileExists(outputFile)) then
Set objFile = fso.OpenTextFile(outputFile,8,True)
objFile.writeline fc
objFile.Close
else
Set objFile = fso.CreateTextFile(outputFile,True)
objFile.writeline fc
objFile.Close
end if
end sub