Public Sub Main()
Dim iNum As Long

For iNum = 1 To 100000
  If Str(iNum * iNum) Ends "269696" Then Break
Next

Print "The lowest number squared that ends in '269696' is " & Str(iNum)

End