Imports System
Public Class Test
Public Shared Sub Main()
Dim n as Integer = 853271
Console.WriteLine(Int(Math.Log10(n)))
Console.WriteLine(Int(Math.Pow(10, Int(Math.Log10(n)))))
n = n Mod Int(Math.Pow(10, Int(Math.Log10(n))))
Console.WriteLine(n)
End Sub
End Class
' run:
'
' 5
' 100000
' 53271