Help me plz

I need some help doing this Visual Basic project.... I need to incorporate into my Notepad-like program a find/replace function. I already have the Replace all working fine, but I can't figure out how to make my find button a find + find next (ex. it finds one occurrence, you press it again and the next occurrence is highlighted) Here is what i gots so far.

a = txtSearchWord.Text

b = InStr(TextEditor.txtMain.Text, txtSearchWord.Text)

If b Then

TextEditor.txtMain.Focus()

TextEditor.txtMain.SelectionStart = b - 1

TextEditor.txtMain.SelectionLength = Len(a)

Else

MsgBox("Text not found.")

End If

>>17
Unlike you, my powerful brain can learn more than one language. I had to learn VB .NET as a CS freshman.

I probably know every single language you know and program better in any of them than you.