Private Sub cb_prüfintervall_Change()
Dim date1 As Date
Dim date2 As Date
Dim date3 As Date
Dim intervall As Integer
 
date1 = txt_inbetriebname.Text
date2 = lbl_letztePruefung.Visible
date3 = txt_nächstePrüfung.Text
intervall = cb_prüfintervall.Text
 
If date2 = "" Then
    date3 = date1 + intervall
    Else
        date3 = date2 + intervall
End If
 
End Sub

ich bin über jede kleine hilfe sehr dankbar, weil ich versuche mir das vb selber bei zu bringen...