Nach Datum sortieren

Ich habe in SpalteB folgende Datumseinträge:

01.01.03-06.01.03
05.05.03-08.05.03

Nun hätte ich gerne ein Makro, welches mir die Datumseinträge in SpalteB aufsteigend sortiert.
Bisher sieht´s so aus:

Sub Nach_Datum_sortieren()

Range("A1:C131").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
End Sub

Allerdings wird hier nur nach dem Tagesdatum sortiert.

Wer weiß Rat?

MfG
Dominik