Private Sub cmdUmwandeln_Click()
 
 
sData = Split(txtEingabezeit.Text, ":")
 
hh = (Val(sData(0) * 24)) + (Val(sData(1) + (Val(sData(2) / 60))))
 
KommaHH = Format(Val(sData(2)) / 60, "0.00")
 
mm = ((((Val(sData(0)) * 24) + Val(sData(1))) * 60)) + Val(sData(2))
ss = (((((((Val(sData(0)) * 24) + Val(sData(1))) * 60)) + Val(sData(2))) * 60) _
  + Val(sData(3)))
 
If sData(1) > 23 Or sData(2) > 59 Or sData(3) > 59 Then
 frmZeitInformation.Show
 txtAusgabezeitH = FormatTime(iSeconds, "h", "h")
  txtAusgabezeitM = FormatTime(iSeconds, "m", "m")
  txtAusgabezeitS = FormatTime(iSeconds, "s", "s")
Else
txtAusgabezeitH.Text = CStr(hh + KommaHH)
txtAusgabezeitM.Text = CStr(mm)
txtAusgabezeitS.Text = CStr(ss)
 
End If