Werte einer Input-Box begrenzen

ich möchte die Werte einer Input-Box begrenzen. Bisher habe ich folgende Code:

If Range("F15").Value = "" Then
Eingabe = Application.InputBox("Bitte geben Sie einen Projekttyp ein!", "Teilprojekt einrichten")
If Eingabe = False Then
Range("A15:C15,E15:F15,I15:L15").ClearContents
Exit Sub
End If
Do While Eingabe = ""
Eingabe = InputBox("Bitte geben Sie einen Projekttyp ein!", "Eingabefehler")
Loop
[F15] = Eingabe
End If

Es soll aber nicht jede Eingabe möglich sein, sondern nur folgende:
Aufwand
Festpreis
Intern
Pseudo

Kann mir da jemand, vor allem codetechnisch weiterhelfen?

Grüße!