How to check the given string is a Palindrome using VB script

MyString = Ucase (Inputbox(“Enter a String :”))

RevString =strreverse(MyString)

if strcomp (MyString, RevString)= 0 then

msgbox “The given string is a Palindrome”

else

msgbox “The given string is NOT a Palindrome, please try another one”

end if