Zitat:

...werden, sodass ein Datum rausgegeben wird das vor und nach dem heutigen Datum liegt.

Zitat:

...ich habe ein paar Fragen zum Do While Befehl.

Zitat:

Das Ergebnis wird ja in einer Textbox(MsgBox) bekanntgegeben,, aber nacheinander

Private Sub Command1_Click()
  Dim GHalley As Date
  Dim sText As String
  Const iAddDay = 0
  Const iAddMonth = 0
  Const iAddYear = 76
 
  GHalley = "4/20/1910"
 
  Do While GHalley < Date
    GHalley = DateSerial(Year(GHalley) + iAddYear, Month(GHalley) + iAddMonth, _
      Day(GHalley) + iAddDay)
    Select Case GHalley
      Case Is < Date:   sText = "Vorheriges Erscheinen: " & GHalley
      Case Is > Date:   sText = "Nächstes Erscheinen: " & GHalley
      Case Is = Date:   sText = "Heute " & GHalley & " erschienen."
    End Select
    If MsgBox(sText, vbInformation + vbOKCancel, "Info") = vbCancel Then Exit Do
  Loop
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.