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.")