Sub Demo() '----------------------------------------------------------------------- On Error GoTo er Dim i As Integer i = 200 * CInt(InputBox(Prompt:="Zahl:", Title:="Demo", Default:=20)) ex: On Error Resume Next Exit Sub er: Select Case Err.Number Case 6 MsgBox "Die Zahl war zu groß!", vbCritical Resume Next Case Else MsgBox Prompt:=Err.Description, Title:="Fehler: & Err.Number" Resume ex Resume End Select End Sub