ارجو المساعده فى طريقة حساب الفرق بين الوقت

السلام عليكــم ورحمـة الله وبركاتــه

اخوانى انا مطلب منى عمل مشروع برنامج حضور وانصراف لكن انا عندى مشكلة بسيطة عايز اعرف الطريقة الصحيحة لحساب الفرق بين وقت الدخول وقت الخروج علشان احسب عدد ساعات عمل الموظف . لكن فى يتم استخدام التوقيت بنظام الجيش نظام 24 ساعة . وانا قم بستخدام هذا الكود:

توقيت الدخول الساعة 4 مساء' Dim strStart As String = "16:00:00"

Dim strEnd As String = "00:00:00" 'توقيت الخروج الساعة 12 صباحا

Dim DifInSecs As Long = DateDiff(DateInterval.Second, CDate(strStart), CDate(strEnd))

Dim spanFromSeconds As TimeSpan = New TimeSpan(0, 0, CInt(DifInSecs))

MsgBox(spanFromSeconds.TotalHours)