VBA: Hvordan finne string inne i annen string

Har du noen gang hatt behov for å lete etter en tekstsnutt i en lengre string? Det er ikke så vanskelig, og kan gjøres ved hjelp av funksjonen Mid(). Legger ved et kode-eksempel under.

Dim tekst, str as string
 
tekst = "Dette er teksten vi skal lete i"
str = "vi" 'dette er stringen vi vil finne
 
For i = 1 to Len(tekst) 'Looper gjennom hele teksten, en bokstav om gangen.
    If Mid(tekst, i, Len(str)) = str Then
          Msgbox(str & " ble funnet.")
          Exit sub
     End if
Next i
 
Msgbox(str & " ble ikke funnet.")

vba

snippet

ibe151