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 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_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = 0 Then
        Debug.Print "Lo que quieras"
    End If'// Podes usar cancel=true para cancelar la decarga.
End Sub