Quick test professional 11

'Verify that this string is  palindrome 

call fnStrPali("dalad")

Function fnStrPali(StrPali)
    str1 = strpali
    str2 = StrReverse(str1)
    If str1 = str2 Then
        msgbox "This is a palindrom"
        Else
        msgbox "This is not a palindrom"
    End If
End Function