Private Sub Command1_Click()
Dim Beginn As Date
Dim NaechsterTermin As Date
 
Beginn = Text1.Text
 
If IsDate(Beginn) = False Then
MsgBox ("Bitte geben Sie in die Textbox ein relevantes Datum ein!")
Exit Sub
End If
 
NaechsterTermin = DateAdd("m", Intervall, Beginn)
 
MsgBox ("Altes Datum: " & Beginn & "/Neuer Termin: " & NaechsterTermin)
 
End Sub
 
Private Sub Form_Load()
Combo1.AddItem ("3 Monatige")
Combo1.AddItem ("Halbjährlich")
Combo1.AddItem ("Jährlich")
Combo1.AddItem ("2 Jährlich")
End Sub
 
Private Function Intervall() As Integer
 
Dim Text As String
Text = Combo1.Text
 
Select Case Text
Case "3 Monatige"
Intervall = 3
Case "Halbjährlich"
Intervall = 6
Case "Jährlich"
Intervall = 12
Case "2 Jährlich"
Intervall = 24
Case Else
Intervall = 0
End Select
 
End Function

EALA FREYA FRESENA