Option Explicit
 
Private Enum Wuerfel
Eins = 1
Zwei = 2
Drei = 3
Vier = 4
End Enum
 
Private MyWuerfel As Wuerfel
 
Private Sub Command1_Click()
Dim ergebnis
ergebnis:
  ergebnis = InputBox("Wählen sie:" & Chr(13) & "Die 1 für: ..." & Chr(13) & _
    "Die 2 für: ..." & Chr(13) & "Die 3 für: ..." & Chr(13) & "Die 4 für: ...")

  If ergebnis = 1 Or ergebnis = 2 Or ergebnis = 3 Or ergebnis = 4 Then GoTo _
    weiter Else GoTo ergebnis

weiter:
  MyWuerfel = ergebnis
  Debug.Print MyWuerfel
End Sub
 
Private Sub Form_Load()
  MyWuerfel = 5
End Sub

Gruß
Dirk

--
?Get it right the first time