Private Sub zeitberechnung()
 
Dim minDAT 
Dim minSTD 
 
minDAT = Format((((UserForm1.TextBox10.Value - UserForm1.TextBox9.Value) * 24) _
  * 60) /1000000, "*000")
minSTD = DateDiff("n", TimeValue(UserForm1.TextBox11.Value), TimeValue( _
UserForm1.TextBox12.Value))
 
 
TextBox13.Value = minDAT + minSTD 
 
 
End Sub