Sub gesamtpreis()
Dim std As Double
Dim min As Double
Dim gesamtminuten As Double
Dim Gespreis As Double
 
std = CDbl(text_zeit_std.Text)
min = CDbl(text_zeit_min.Text)
 
gesamtminuten = (std * 60) + min
 
Gespreis = (gesamtminuten / 60) * CDbl(text_preis.Text)
 
text_gepreis.Text = Gespreis
 
End Sub