Foro de elhacker.net

Option Explicit

Private Sub Form_Load()
    '// Case sensitive
    If Not InStr(1, "Tu Texto", "Lo que buscas") = 0 Then
        Debug.Print "WTF"
    End If
    
    '// Case insensitive
    If Not InStr(1, UCase("Tu Texto"), UCase("Lo que buscas")) = 0 Then
        Debug.Print "WTF"
    End If
End Sub

Option Explicit

Private Sub Form_Load()
    Select Case True
        Case "mi texto tiene esto" Like "*esto*"
            Debug.Print "SE ACA TA"
        Case Else
            Debug.Print "NO TA"
    End Select
End Sub

Option Explicit

Private Sub Command1_Click()
Select Case InStr(1, Text1, "a")
Case Is = 0
MsgBox "No encontré la letra a"
Case Is <> 0
MsgBox "encontré la letra a"
End Select
End Sub