Visual Basic - segundos -> h/m/s

como podria hacer para pasar un numero que esta en segundos a horas, minutos y segundos (5000 por ejemplo a 1h 23m 20s)

pos lo divides y ya esta

no sabes que 60 segundos en un minuto y 60 minutos es una hota y 24 horas es un dia y que 7 dias es una semana y 365 dias (cada 4 años) es un año?

fuiste al colegio de pequeño?

Probá con un Command y dos TextBox
En el Text1 pones los segundos y en el Text2 te los presenta convertidos

Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) 3600 & " h " & _
(Val(Text1.Text) Mod (3600)) 60 & " min " & _
(Val(Text1.Text) Mod (3600)) Mod (60) & " s"
End Sub

Fijate si funciona
Ojo que la barra invertida está bien, es un operador que devuelven la parte entera de la división.
Saludos cordiales

Aquí está, te aseguro que es efectiva...

Private Sub Command1_Click()

'Declaro Horas como enteros.
Dim Horas As Integer
'Declaro Minutos como enteros.
Dim Minutos As Integer
'Declaro Segundos como enteros.
Dim Segundos As Integer

'Horas es igual al valor numérico (del text1.text) entre (/) 3600, este código se utilizará para calcular las horas de un determinado número entero.
Horas = Val(Text1.Text) 3600
'Minutos es igual al valor numérico (del text1.text)pero sólo el exedente de la operación de Horas, entre (/) 60. Se aplica este código para calcular los minutos restantes, después de horas enteras, de un número determinado.
Minutos = Val(Text1.Text Mod 3600) 60
'Segundos es igual a valor numérico (del text1.text) pero sólo el exedente de horas y minutos, cuando todas las fórmulas se han agotado, los números individibles entre las horas y minutos, quedan en último término en el apartado de segundos.
Segundos = Val((Text1.Text Mod 3600) Mod 60)

'El text2 será igual al cálculo de las horas del text1.
Text2.Text = Horas
'El text3 será igual al cálculo de las horas del text1.
Text3.Text = Minutos
'El text4 será igual al cálculo de las horas del text1.
Text4.Text = Segundos

End Sub