Imports System

Public Module Module1

    Public Sub Main()

        dim word as string

        dim num as integer

        do

            console.writeline ("Please enter the word you wish to be tested. It must have equal to or more than 3 characters.")

            word = console.readline()

            num = word.Length

        loop until num >= 3

        if  num mod 2 = 0 then

            console.writeline ("This is not a Palindrome.")

        else

            dim wordchars(num - 1) as string

            dim indicator as integer = 0

            dim i as integer = 0

            dim j as integer = 0

            do

                wordchars(i) = word.toupper.Substring(i,1)

                wordchars(num - 1 - i) = word.toupper.Substring(num - 1 - i,1)

                if wordchars(i) = wordchars (num - 1 - i)

                    i = i + 1

                    j = j + 1

                else

                    i = i + 1

                end if

            loop until i = math.floor(num / 2)

            if i = j then

                console.writeline ("This is a Palindrome.")

            else

                console.writeline ("This is not a Palindrome.")

            end if

        end if

    End Sub

End Module

​