I've already found solution. There's sub GetSelection(StartLine As Long,
StartColumn As Long, EndLine As Long, EndColumn As Long) which is desiged to
return coordinates of highlighted text in CodePane object. If no text is
selected then it returns position of text cursor. That's what I needed. I
hope it will be helpful not only to me.