Visual Basic - Código Conversión del Tiempo

Hola a todos, estaba presumiendo mi programita cuando detecté lo siguiente:

Dim Horas As Integer
Dim Minutos As Integer
Dim Segundos As Integer

Horas = Val (Text1.Text) / 3600
Minutos = Val(Text1.Text Mod 3600) / 60
Segundos = Val ((Text1.Text Mod 3600) mod 60)

Un día equivale a 86400 segundos. Pero si yo deseo calcular 85960 (que es un número menor a 86400) me arroja un resultado de: 24 hrs., 53 min., 40 seg. Resultando ilógico que 85960, que es menor a 24 horas, resulte de más de 24 horas.

Ahora, modifiqué con diagonales invertidas para que calcule sólo enteros:

Dim Horas As Integer
Dim Minutos As Integer
Dim Segundos As Integer

Horas = Val (Text1.Text) 3600
Minutos = Val(Text1.Text Mod 3600) 60
Segundos = Val ((Text1.Text Mod 3600) mod 60)

Pero de igual forma sobrepasa la lógica.

Si alguién pudiera darme el código perfecto para esto (la verdad es que mi nivel de VB es super novato), talvez con una explicación con manzanas, se los agradeceré.

Lo que sucede que es usas variables del tipo integer (ENTERO), por eso al dividir 85960 / 3600 te da un valor de 24, POR EFECTOS DEL REDONDEO.
Utiliza mejor variables de tipo Single, para que te acepten decimales, y después tomas, ahora sí la parte entera.