Inserisci la seguente funzione in un modulo o in un form.
L'output può essere applicato a qualsiasi oggetto (textbox, label...)
es: txttempo.text=dividi_secondi(5400)

Questo esempio assegna a txttempo il valore "1 ora e 30 minuti".

------------------------

Public Function dividi_secondi(secondi As Single)
'Trasforma i secondi in ore e minuti
Dim ore As Single
Dim minuti As Single
Dim count As Single

'Toglie i decimali dai secondi totali (se ci sono...)
Dim pos_separatore As Single
Dim tiposeparatore As String
tiposeparatore = Mid(CStr(5 / 2), 2, 1)
ore = 0
tempox = secondi / 60
pos_separatore = InStr(CStr(tempox), tiposeparatore)
If pos_separatore <> 0 Then tempox = Left(tempox, pos_separatore)

'Crea la stringa per l'output
Do
ore = ore + 1
count = ore * 60
Loop Until count > tempox
ore = ore - 1
minuti = tempox - (ore * 60)

'Manda l'output alla chiamata
If ore = 0 And minuti = 0 Then
dividi_secondi = "Meno di un minuto"
ElseIf ore = 0 Then
dividi_secondi = minuti & " minuti"
ElseIf minuti = 0 Then
dividi_secondi = ore & " ore"
Else
dividi_secondi = ore & " Ore e " & minuti & " Minuti"
End If
End Function