Very Quick Question-Select Case-Determine if string has delimiters

Before I close the thread as solved, I want the code to be more compact/compressed.

Why does xladepts code work but not the code below? (the code is an extract only)

Private Function UserNameToFirstLast(strUserName As String) As String
'   test delimiters
    Dim DeLim As Boolean
    If (strUserName Like " ,._") Then
        DeLim = True
    End If

'end of extract
End Sub

Does anyone where the above code is going wrong?

That can't work because you never have " ,._" together as a string with nothing between them, maybe something like"* *,*.*_*" would work??? And - you're welcome!

Originally Posted by xladept

That can't work because you never have " ,._" together as a string with nothing between them, maybe something like"* *,*.*_*" would work??? And - you're welcome!

The post #4 code was my attempt at adapting some other code I found a while ago. The original code is below.

UPDATE 1: Just ran some tests on the function below and it always returns False. Uh oh.
UPDATE 2: I found out where I found the code from. http://www.jpsoftwaretech.com/excel-...ate-filenames/ Interestingly the web page states: "I've modified the original code ever so slightly; the asterisks just inside the quotation marks in Ross' code are unnecessary, if the Visual Basic Help System is to be believed." (It looks like the asterisks ARE necessary)

Public Function IsLegalFileName(ByVal str As String) As Boolean
'' refer http://msdn.microsoft.com/en-us/library/aa365247.aspx for list of invalid characters
    If (str Like "<>:""/\|?*") Then
        IsLegalFileName = True
    End If
End Function