Contact: aviboots(AT)netvision.net.il
41,379 questions
53,922 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim num As Integer = 17059 Dim len As Integer = Math.Floor(Math.Log10(num) + 1) Console.Write(len) End Sub End Module ' run: ' ' 5 '