Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine(ObtenirDureeVieArchive("5"))

    End Sub

    Private Function ObtenirDureeVieArchive(resultat as string ) As int32

        Dim dureeVieArchive As Int32

        if Int32.TryParse(resultat, dureeVieArchive) then

            return dureeVieArchive

        End If

        return 0

     End Function

End Module