<code>
Option Explicit
Private Sub Command1_Click()
Dim Pos As Long
Pos = InStr("Sven", "E", vbTextCompare)
MsgBox Pos
End Sub
</code>

Du har glömt att ange startpositionen.

<code>
Option Explicit
Private Sub Command1_Click()
Dim Pos As Long
Pos = InStr(1, "Sven", "E", vbTextCompare)
MsgBox Pos
End Sub
</code>

Ahaaa Tack

Gott Nytt År