'Kann aber sein, dass noch ein Overrides, Shadow, oder Overloads oder sowas 
' fehlt...kann ich hier aber gerade nicht feststellen
Function ShowDialog() As Integer
   If MyBase.ShowDialog = DialogResults.Ok Then
       Return Val(lblZahl.Text)
   End If
End Function