---

Sub beispielIf3()
    Dim Semester As Integer

    Semester = InputBox("Bitte die Anzahl der Semester eingeben")
    If Semester > 10 Then
         MsgBox "Sie sind schon ganz schön lange hier"
    ElseIf Semester >= 5 Then
        MsgBox "Sie sind im Hauptstudium und hoffentlich bald fertig"
    ElseIf Semester = 4 Then
        MsgBox "Sie sind hier genau richtig", vbOKOnly, "Grundstudiumfenster"
    Else
        MsgBox "Sie haben vermutlich gerade erst mit dem Studium begonnen", vbQuestion
    End If
End Sub

---