Imports System
Public Class Program
Public Shared Sub Main()
Dim num As Integer = 187395
If CInt((Math.Log10(num) + 1)) Mod 2 = 0 Then
Console.Write("Even number of digits")
Else
Console.Write("Not even number of digits")
End If
End Sub
End Class
' run:
'
' Even number of digits
'