Dim myInput As String
DIm nValue As Integer
 
myInput InputBox("Wie alt sind Sie?", "Alter", "")
If StrPtr(myInput) = 0 Then
  MsgBox "Abbrechen wurde gewählt!"
Else
  nValue = Val(myInput)
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de