Modificar Resultado de hora

[jsr_17_7]

Hola que tal... he estado buscando algo para sumar fecha y encontre esto


Public Function SumarHoras(ByVal h1 As String, ByVal h2 As String) As String
Dim arrHour1() As String = h1.Split(":")
Dim arrHour2() As String = h2.Split(":")

Dim d1 As DateTime = New DateTime(1900, 1, 1, Int32.Parse(arrHour1(0)), Int32.Parse(arrHour1(1)), 0)
d1 = d1.AddHours(Int32.Parse(arrHour2(0)))
d1 = d1.AddMinutes(Int32.Parse(arrHour2(1)))


Return d1.ToShortDateString

End Function


sucede que si yo ingreso una hora digamos "20:50" y "20:30" me llega a salir como resultado "05:20:00 pm" pero sucede que lo necesito que me cuente las horas hasta el 24 o 23:59 ... como modifico para que me cambie ese resultado a "16:20:00"...