Dim Minutes As Integer
      Dim MinuteInput As String = edMinToHour.Text.Replace(".", ",")
 
      Try
          'Hier wird die Eingabe als Integer-Wert gelesen, falls möglich ....
          'Die Parse-Methode löst ggf. eine Ausnahme aus
          '(das Dezimalkomma wird nicht akzeptiert: Formatfehler)
          Minutes = Integer.Parse(MinuteInput)
 
          'Alternative 2: Das Dezimalkomma wird akzeptiert, 
          'und der Wert auf eine ganze Zahl gerundet
 
          'Minutes = CInt(MinuteInput)
 
 
          'Alternative 3 : Es wird explizit auf die unzulässige Eingabe eines
          'nicht-ganzzahligen Wertes hingewiesen
 
          'Dim MinutesDecimal As Decimal = Decimal.Parse(MinuteInput)
          'If MinutesDecimal <> Math.Round(MinutesDecimal, 0) Then
          '    MsgBox("Nur ganzahlige Werte sind zugelassen") : Exit Sub
          'End If
          'Minutes = CInt(MinutesDecimal)
 
      Catch ex As Exception
          MsgBox("Unzulässige Eingabe bei Minuten :" & vbNewLine & _
                 ex.Message & vbNewLine)
          Exit Sub
      End Try
 
      'Erstellung einer Timespan-Instanz, initialisiert mit Minutes als Spanne 
      'hier kann es nicht zu einer Ausnahme kommen
      Dim ts As New TimeSpan(0, Minutes, 0)
 
      'Beispiel für Abfrage der Zeitspanne als Angabe in Stunden 
      'gerundet auf zwei Stellen (bei der Eingabe ganzer Minuten ausreichend)
      edHourFormMin.Text = CStr(Math.Round(ts.TotalHours, 2))