edHourFormMin.Text = String.Empty
 
        If edMinToHour.Text = "" Then
            MsgBox("Sie haben keinen Minutenwert angegeben !", _
              MsgBoxStyle.Critical, "Fehler")
        End If
 
 
        'Dim Minutes As Decimal
        Dim MinutesInt As Integer
        MinutesInt = CInt(edHourToMin.Text)
 
        Try
             Dim ts As New TimeSpan(0,MinutesInt,0)
        Catch ex As Exception
            MsgBox("Fehlerhafte Konvertierung")
        End Try
 
        edHourFormMin.Text = CStr(ts.TotalHours)