• Home
 · 
• Miscellaneous
 · 
• A Palendrome Program

A Palendrome Program

A Palendrome Program

Rate A Palendrome Program

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

For i = 1 To Len(txt1.Text)
    S = Mid(txt1.Text, i, 1)
    S = LCase(S)
    b = Mid(txt1.Text, Len(txt1.Text) + 1 - i, 1)
    b = LCase(b)
    If Not S = b Then
        MsgBox ("This is not a Palendrome")
        End
    End If
Next i
If S = b Then
    MsgBox ("This is a Palendrome")
End If
End Sub