aanroepen sub

[bonnowagt]

Ik heb de volgende private sub

 Private Sub RTBHighlight(ByVal Tekst As String, ByVal Kleur As Color)
        Dim Lengte As Integer = Tekst.Length
        Dim Plaats, Zoek As Integer
Zoek = RichTextBox2.Find(Tekst, 0, -1, RichTextBoxFinds.WholeWord)
Do Until Zoek < 0
                   RichTextBox2.SelectionStart = Zoek
            RichTextBox2.SelectionLength = Lengte
            RichTextBox2.SelectionColor = Kleur
            Plaats = Zoek + Lengte
Zoek = RichTextBox2.Find(Tekst, Plaats, -1, RichTextBoxFinds.WholeWord)
        Loop
    End Sub

Ik wil deze aanroepen met een button op de volgende wijze:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
                  RTBHighlight(tekst, kleur)
  End Sub

Krijg hier echter een fout melding

wat doe ik verkeerd

 

[edmoor]

Handig dat je ook de foutmelding erbij verteld.