Die Instr-Funktion ist dient dazu, ein Vorkommen eines Strings in einem String zu prüfen.
Die Syntax ist: Instr(Start,ZuUntersuchenderText,GesuchterText,[Vergleichsart])

Start ist ab welcher Stelle wir im Text suchen wollen, in der Regel 1 (Sucht ab Anfang des Textes)
ZuUntersuchenderText ist der Text, in dem ich das Vorkommen suche.
GesuchterText ist der Text, den ich finden will.
Vergleichsart ist ein optionales Argument, welches wenn nicht angegeben vbBinaryCompare ist,
was bedeutet, dass CaseSensitiv gesucht wird. Will ich CaseInSensitiv suchen muss ich dieses Argument mit vbTextCompare angeben.

Wird der Text gefunden, so erhalte ich als Rückgabe die Startposition im Text, ansonsten erhalte ich den Wert 0 zurück.
iPos = Instr(1,"HausMaus","a") hat als Rückgabe 2
iPos = Instr(4,"HausMaus","a") hat als Rückgabe 6
iPos = Instr(5,"HausMaus","a") hat als Rückgabe 6
iPos = Instr(1,"HausMaus","y") hat als Rückgabe 0
iPos = Instr(7,"HausMaus","a") hat als Rückgabe 0

iPos = Instr(1,"HausMauser","aus") hat als Rückgabe 2
iPos = Instr(1,"HausMauser","ause") hat als Rückgabe 6

iPos = Instr(1,"HausMaus","A") hat als Rückgabe 0
iPos = Instr(1,"HausMaus","A",vbTextCompare) hat als Rückgabe 2


Nachfolgender Beispielcode sollte es weiter verdeutlichen.

Option Explicit
	
Public Sub InstrTests()
	Dim sText As String
	sText = "Ein Text mit vielen i's und ein großes I in Image"
	MsgBox InStr(1, sText, "i")
	MsgBox InStr(1, sText, "I")
	MsgBox InStr(1, sText, "I", vbTextCompare)
	MsgBox InStr(20, sText, "i")
	MsgBox InStr(1, sText, "y")
	MsgBox InStr(100, sText, "i")
End Sub
	
Public Sub InstrAlleFinden()
	Dim sText As String, iPos As Long, sAusgabe As String
	sText = "Ein Text mit vielen i's und ein großes I in Image"
	iPos = InStr(1, sText, "i") ' um auch die großen I's zu finden dann mit vbTextCompare
	Do While iPos > 0
		sAusgabe = sAusgabe & "-" & iPos
		iPos = InStr(iPos + 1, sText, "i")
	Loop
	MsgBox sAusgabe
End Sub