Private Sub cmdStart_Click()
   Dim inputWord As String
   Dim testWord As String
   Dim reverseWord As String
   Dim testChar As String
   Dim i as Integer 
   Dim maxIndex as Integer 
 
 
   'Get input from the user.
   inputWord = InputBox("Please enter your word")
 
   'Record the input in lower case and remove spaces (you can
   'add checks for tabs, linefeeds, etc).
   maxIndex = Len(inputWord) - 1
   For i = 0 To maxIndex
      testChar = Mid(inputWord, i, 1)
      If testChar <> " " Then
         testWord = testWord & LCase(testChar)
      End If
   Next
 
   'Reverse testWord.
   maxIndex = Len(testWord) - 1
   For i = maxIndex To 0 Step -1
      reverseWord = reverseWord & Mid(testWord, i, 1)
   Next
 
   'Compare reverseWord to testWord and output the results.
   If testWord = reverseWord Then
      MsgBox "Yes, it's a palindrome"
   Else
      MsgBox "No, it's not a palindrome"
   End If
 
 
   'Get input from the user.
   inputWord = InputBox("Please enter your word")
 
   'Record the input in lower case and remove spaces (you can
   'add checks for tabs, linefeeds, etc).
   maxIndex = Len(inputWord) - 1
   For i = 0 To maxIndex
      testChar = Mid(inputWord, i, 1)
      If testChar <> " " Then
         testWord = testWord & LCase(testChar)
      End If
   Next
 
   'Reverse testWord.
   maxIndex = Len(testWord) - 1
   For i = maxIndex To 0 Step -1
      reverseWord = reverseWord & Mid(testWord, i, 1)
   Next
 
   'Compare reverseWord to testWord and output the results.
   If testWord = reverseWord Then
      MsgBox "Yes, it's a palindrome"
   Else
      MsgBox "No, it's not a palindrome"
   End If
End Sub

Dim sSQL As String
sSQL=InputBox("Please enter your word")
If Trim(sSQL) <> "" Then
  If sSQL = Reverse(sSQL) Then
      Msgbox "Palindrome True"
  Else
     Msgbox "Not A Palindrome"
  End If
End If
 
 
REgards
Veena