If (stat = "IN") Then
                        lateMin = 0
                        extMin = 0

                        If (timeHr < 7) Then
                            lateMin += (timeHr - 7) * 60
                            lateMin=

                        End If

                        If (timeHr <= 7) Then
                            If (timeMin > 0) Then
                                lateMin += (timeMin)
                            End If
                        End If
                    ElseIf (stat = "OUT") Then
                        If (timeHr > 17) Then
                            extMin += (timeHr - 17) * 60
                        End If

                        If (timeHr >= 17) Then
                            If (timeMin >= 15) Then
                                extMin += (timeMin)
                            End If
                        End If


                        totalMins += (480 - lateMin) + (extMin)

                    End If
                Loop
            Else
                MsgBox("No Records Found!", MsgBoxStyle.Information, "Search")
            End If
            dr.Dispose()

            TextBox4.Text = Math.Floor(totalMins / 60) & ":" & (totalMins Mod 60)

dim InTime as DateTime
dim TimeDiff as TimeSpan

If (stat = "IN") Then
    InTime = DateTime.Now
    TimeDiff = new TimeSpan
elseif (stat = "OUT")
   TimeDiff = DateTime.Now - InTime
end if

If TimeDiff.Hours > 8 then
    ....
Else
    ...
End if