Module Module1

    Public Function getUptime() As String
        Dim time As String = String.Empty
        time += Math.Round(Environment.TickCount / 86400000) & " days, "
        time += Math.Round(Environment.TickCount / 3600000 Mod 24) & " hours, "
        time += Math.Round(Environment.TickCount / 120000 Mod 60) & " minutes, "
        time += Math.Round(Environment.TickCount / 1000 Mod 60) & " seconds."
        Return time
    End Function

    Sub Main()
        Console.WriteLine(getUptime())
    End Sub

End Module