Function InstrPrimjer()
Dim Str As String
Dim Znak As String
Dim Pozicija As Integer

Str = "Ana voli Milovana"
Znak = "a"
Pozicija = InStr(1, Str, Znak, 0)
'Pozicija = 3
Pozicija = InStr(1, Str, Znak, 1)
'Pozicija = 1
Pozicija = InStr(1, Str, Znak, 2)
'Pozicija = 1
Pozicija = InStr(1, Str, Znak)
'Pozicija = 1
Pozicija = InStr(7, Str, Znak, 0)
'Pozicija = 15
End Function