Function Palindrome(StrTest As String) As Long
    Dim temp As String
    Dim i As Long
For i = 1 To Len(StrTest)
    If Mid(StrTest, i, 1) Like "[0-9,A-Z,a-z]" Then
        temp = temp & UCase(Mid(StrTest, i, 1))
   End If
   Next i
    If temp = StrReverse(temp) Then
        Palindrome = 1
    End If
End Function