Public Function ToDate(Value As String) As Date
Dim Data() As String
Data = Split(Value, ":", 2)
ToDate = TimeSerial(Data(0), Data(1), 0)
End Function

Det skickas en tid i form av en sträng till funktionen ovan i formatet 00:00.
Om tiden är 01:00 så får jag ut 00:00, är tiden 02:00 får jag ut 01:00
04:00 => 03:00
08:00 => 07:00
11:00 => 10:00
13:00 => 12:00
16:00 => 15:00
...
143:00 => 142:00
146:00 => 145:00
o.s.v...
och så fortsätter det.
Tiderna där emellan ger dock rätt tid ut.
Förstår inte varför det blir galet med vissa tider.

/red
Problemet verkar sitta i raden
txtTotPer.Text = Int(TotalTid * 24) & ":" & Right("00" & Minute(TotalTid), 2) nedan.
Om jag avkommenterar Text4 till Text9 så stämmer värdet fram till raden txtTotPer.Text....//...TotalTid), 2)

Private Sub txtTotPer_Click()
Dim TotalTid As Date
TotalTid = ToDate(txtSummaP1)
'Text4.Text = TotalTid
TotalTid = TotalTid + ToDate(txtSummaP2)
'Text5.Text = TotalTid
TotalTid = TotalTid + ToDate(txtSummaP3)
'Text6.Text = TotalTid
TotalTid = TotalTid + ToDate(txtSummaP4)
'Text7.Text = TotalTid
TotalTid = TotalTid + ToDate(txtSummaP5)
'Text8.Text = TotalTid
TotalTid = TotalTid + ToDate(txtSummaP6)
'Text9.Text = TotalTid
txtTotPer.Text = Int(TotalTid * 24) & ":" & Right("00" & Minute(TotalTid), 2)
End Sub

/red
Trodde att det var löst men det var det inte.. :(

Testa med:
<code>
txtTotPer.Text = Hour(TotalTid) + Int(TotalTid) * 24 & ":" & Right("00" & Minute(TotalTid), 2)
</code>

Great!! *tummen upp*