Private sub GoToLineAndColumn(RTB as RichTextBox , Line as integer, Column as integer)
dim offset as integer = 0
dim i as integer = 0
For i = 0 to Line - 1
if i < RTB.Lines.Length then
offset += RTB.Lines(i).Length + 1
end if
next
RTB.Focus()
RTB.Select(offset + Column, 0)
end sub