请教两个问题，高亮指定行和 文本合并的问题。

Question

1 我想在text.txt中高亮指定行，自己写的代码如下：Private Sub mnuGoto_Click()
 Dim str As String
 Dim A() As String
 Dim line
   str = ""
   line = InputBox("请输入你要查找的行数.", "查找并高亮行")
   strFindText = Text1.text
   A = Split(strFindText, vbCrLf)
 If line > 0 And line <= (UBound(A) + 1) Then
   For i = 0 To line - 2
   str = str & A(i) & vbCrLf
   Next
   strLong = Len(str)
   selLong = Len(A(line - 1))
  Text1.SelStart = strLong
  Text1.SelLength = selLong
Else
  re = MsgBox("输入错误的行数或者行数比实际最大行数大!", vbExclamation)
End If
End Sub
一般文本数据似乎都能成功，但是在某些文本似乎无法准确定位，大家帮我看下。2 如何实现API 打开文件选择对话框后，允许多选文件（一般都是单选！！）?
  另外实现这些文本的合并，比较好的方法是什么呢？
 多谢"

Answer 1

1、没有必要，换一个控件 用 RichTextBox1

Answer 2

不想用控件,想做个绿色的.
用richbox,也太...