imports System
Module Program
Function HalvesEqual(n As Integer) As Boolean
Dim s As String = n.ToString()
Dim len As Integer = s.Length
If len Mod 2 <> 0 Then
Return False ' cannot split evenly
End If
Dim half As Integer = len \ 2
Dim left As String = s.Substring(0, half)
Dim right As String = s.Substring(half, half)
Return left = right
End Function
Sub Main()
Dim testNumbers() As Integer = {1212, 123123, 45454545, 123, 1213}
For Each n In testNumbers
Console.WriteLine($"{n} -> {If(HalvesEqual(n), "equal halves", "not equal")}")
Next
End Sub
End Module
' run:
'
' 1212 -> equal halves
' 123123 -> equal halves
' 45454545 -> equal halves
' 123 -> not equal
' 1213 -> not equal
'
