Alternatives to Boolean

[Rocky.ca]

How can I change the output from the following code to something instead of true or false? perhaps yes and no?

Function Palindrome(StrTest As String) As Boolean
Dim temp As String
Dim i As Long

For i = 1 To Len(StrTest)
If Mid(StrTest, i, 1) Like "[0-9A-Za-z]" Then
temp = temp & UCase(Mid(StrTest, i, 1))
End If
Next i

Palindrome = temp = StrReverse(temp)
End Function

 

[shg]

One way:

Function Palindrome(StrTest As String) As String
    Palindrome = IIf(UCase(StrTest) = UCase(StrReverse(StrTest)), "Yes", "No")
End Function

 

[VoG]

Try

Function Palindrome(StrTest As String) As String
Dim temp As String
Dim i As Long

For i = 1 To Len(StrTest)
If Mid(StrTest, i, 1) Like "[0-9A-Za-z]" Then
temp = temp & UCase(Mid(StrTest, i, 1))
End If
Next i

Palindrome = IIf(temp = StrReverse(temp), "Yep", "Nope")
End Function
[

 

[shg]

Or

Function Palindrome(ByVal sInp As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "(\W)"
        .Global = True
        sInp = LCase(.Replace(sInp, ""))
    End With
    Palindrome = IIf(sInp = StrReverse(sInp), "Yes", "No")
End Function