Imports System

Public Module Module1

    Public Sub Main()

        ' Your Total minutes '

        Dim TotMins As Integer = 665

        Dim NbHeures, NbMinutes as Integer

        ' Build a TimeSpan using your Total Minutes '

        Dim Duration = New TimeSpan(0,TotMins,0)

​

        ' Output your results '

        If Duration.Hours < 10 Then

            NbHeures = "0" & Duration.Hours

        End If

        If Duration.Minutes < 10 Then

            NbMinutes = "0" & Duration.Minutes

        End If

        Console.WriteLine("Hours : " & Duration.Hours)

        Console.WriteLine("Minutes : " & Duration.Minutes)

        Console.WriteLine("Nouveau Code")

        Console.WriteLine(NbHeures & ":" & NbMinutes)

    End Sub

End Module