search a string

[davyquyo]

search a string

i creatied thsi code

Private Sub Command1_Click()
Dim ophalen As String
Dim tekst1 As String
Dim tekst2 As String
Dim splitter As String
Open "c:/program files/call of duty/main/config_mp.cfg" For Input As #1
ophalen = Input(LOF(1), #1)
Close #1
For i = 0 To 200
splitter = Split(ophalen, Chr(10))(i)
[COLOR=red]
if spitter.    = "seta name" then
stop the i
tekst1 = Replace(splitter, "seta name", "")
tekst2 = Replace(tekst1, Chr(34), "")
Text2.Text = tekst2
Else
Next i
End If
[/COLOR] 
End Sub

there are error's offcourse
the red part shows an if i want to detect the if or the first 9 character = "seta name"

if not go to next i and else stop the loop
i already know that there are more characters present in this part

hope someone can help me with that part