Dim TxtWann As String() = New String() {"Heute", "Morgen", "Übermorgen"}
 
        For Each rwKontakt In ListenDB.Geburtstagsliste
            Dim diffDOY As Integer = New Date(Date.Now.Year, _
                                              rwKontakt.Geburtstag.Month, _
                                              rwKontakt.Geburtstag.Day).DayOfYe_
                                              ar - _
                                              Date.Now.DayOfYear
            If diffDOY < 3 AndAlso diffDOY >= 0 Then
 
                MessageBox.Show(TxtWann(diffDOY) & " hat " & rwKontakt.Vorname _
                  & " " & _
                  rwKontakt.Nachname & "Geburtstag", "Info!", _
                  MessageBoxButtons.OK, _
                  MessageBoxIcon.Information)
            End If
        Next