RichTextBox instead of File?

[lol999]

I am using the code:

Dim a As String
Dim p, q, r As Integer
Open "c:\-= warez =-\SourceCode.html" For Input As #1
While Not EOF(1)
Line Input #1, a$
If Left(a$, 39) = "<font face=" & Chr(34) & "Arial, Helvetica" & Chr(34) & " size=" & Chr(34) & "2" & Chr(34) & ">" Then
p = InStr(a$, "%")
If p Then
q = InStr(10, a$, ">")
r = InStr(10, a$, "<")
percentage = Mid(a$, q + 1, r - q - 1)
End If
End If
Wend
Close
Text1.Text = percentage

End Sub

instead of opening a file, how can i make this code read a rixh text box and do the same procedure?

------------------
webmaster@hackvp.com
http://www.hackvp.com
Ask not what you can do for your country, but what can your country do for you