Dim a As String
Dim Text As String
 
Private Sub FraZeit_Change()
    If OptWinter.Value = True Then a = "Winter"
    Else: a = "Sommer"
    End If
End Sub
 
Private Sub cmdStart1_Click()
    Text = a + "und" + b + c
    txtAusgabe.Text = Text
End Sub