Sortieren nach Tag - Monat - Jahr

Private Sub Workbook_Open()
Sheets("Geburtstage").Select
Range("c4").Select
Dim sMldg1 As String, sMldg2 As String, lR As Long, iDiff As Integer
Const iNn As Integer = 3   ' Spalte C - Nachnamen
Const iVn As Integer = 5   ' Spalte E - Vornamen
Const iG As Integer = 8    ' Spalte H - Geburtstage
sMldg1 = "Geburtstage heute:" & vbLf
lR = 4
Do Until IsEmpty(Cells(lR, iVn))
iDiff = DateSerial(Year(Date), Month(Cells(lR, iG)), Day(Cells(lR, iG))) - Date
If iDiff  "" Then
MsgBox "Geburtstage in den nächsten 10 Tagen:" & vbLf & sMldg2, , " GEBURTSTAGS-INFO... _
_
Else
MsgBox "Keine Geburtstage in den nächsten 10 Tagen!", , " GEBURTSTAGS-INFO..."
End If
End If
End Sub