Uitkomst geeft geen juiste tijd

[weswillem]

Bij invoer van aankomst = 09:15 en vertrek = 17:00 moet er een uitkomst komen van 7,45
maar bij onderstaande code komt er 7.75 uit.
Op welke wijze krijg ik dan 7,45
en hoe kan ik die uitkomsten van de maandag tot en met zondag optellen?
Iemand creatiever?

Private Sub mskVertrek1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles mskVertrek1.LostFocus
        Dim timeDif1 As Long = DateDiff(DateInterval.Minute, mskAankomst1.ValidateText, mskVertrek1.ValidateText)
        Dim timeDif As Double = timeDif1 / 60
        txtUrenMA.Text = timeDif
    End Sub