Problem with LCase and UCase

[silentwolf]

Hi again,

hope you guys are kind to help me with this I can not work out..

Function TestGMBH(ByVal strText As String) As String
    Dim strSearch As String
    
    strText = LCase(strText)
    
    Select Case True

        Case strText Like "*myword*"
            If strText Like "myword ref*" Then
                TestGMBH = "REF found"
            ElseIf strText Like "*myword iban*" Then
                TestGMBH = "IBAN found"
            ElseIf strText Like "myword ####*" Then
                TestGMBH = "myword with Numbers found"
            
                
            End If
            
        Case Else
        End Select
                
End Function

this is a little test function I am trying to work it out..

However the myword is only a substring within strText the function is also larger and findes different words ans soforth..

So my issue is that myword could be wrinten in the text like MyWord or MYWORD and few more...
How can I make myword non case sensitive with the SELECT CASE statement?

Much appreciated as always .-)

 

[mse330]

Try to put the below line in the top of your module. Though be aware that everything will NOT be case sensitive

Option Compare Text

 

[Fluff]

You already have.

 

[silentwolf]

Hi guys!

Sorry was busy so had no time to look into this again.
I will try that thanks for your help!

But there is another one on the way gg