I am coding for a text editor with a find and replace function. I am getting errors in my code and need help fixing them.
Code:
Private Sub ReplaceButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReplaceButton.Click
Dim StartPos, Counter As Integer
Dim FindString, ReplaceText As String
.FindString = ""
.ReplaceText = ""
For Counter = 1 To Len(TextRichTextBox.Text)
StartPos = InStr(FindTextBox.Text, FindString)
If StartPos > 0 Then
FindTextBox.Text = StartPos - 1
FindTextBox.Text.SelLength = Len(FindString)
FindTextBox.Text.SelText = "" + ReplaceText
End If
Next()
Comment