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).DayOfYear - _
      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

Zitat:

die Geburstage sollen in eine neue Liste Geburtstage: Heute, Morgen und Übermorgen geht das auch ?

For Each rwKontakt In ListenDB.Geburtstagsliste
	Dim diffDOY As Integer = New Date(Date.Now.Year, rwKontakt.Geburtstag.Month, _
  rwKontakt.Geburtstag.Day).DayOfYear - Date.Now.DayOfYear
	Select Case diffDOY
		Case 0 : 'Hier Liste für Heute befüllen
		Case 1 : 'Hier Liste für Morgen befüllen
		Case 2 : 'Hier Liste für Übermorgen befüllen
		Case Else
	End Select
Next