I included both to show you that you could split the string on a blank (default) ar "(". You can probably get away with splitting on the blank as long as you are guaranteed that there is a blank before the "(". It would be wise to validate that RichTextBox1 contains a string that can be parsed in this way. If it does then you can simplify the code to

You need to loop through the RTF box line by line and pass the string (the line), through the Reverend Jims code

dim MyLines() as String
dim MyLine, userpass as string
dim i as integer = 0
MyLines = MyRTFControl.Lines
For i=0 to ubound(MyLines)
MyLine = myLines(i)
userpass = myLine.Split()(0)
'do what you want to do with userpass
next