VB6: Вставить текст в поле по позиции курсора

[nlvz]

1) Есть текст, уже заранее введённый пользователем «руками» в текстовое поле Text1(32).
Рядом сделана кнопка Command5, по которой в текстовое поле Text1(32) записывается предложение «Добро пожаловать!», но это предложение-шаблон появляется только в конце «пользовательского» текста,
Private Sub Command5_Click()
If Len(Text1(32)) > 0 Then
Text1(32) = Text1(32) + " "
End If
Text1(32) = Text1(32) + "Добро пожаловать!"
Text1_LostFocus 32
End Sub

а НАДО вставить «Добро пожаловать!» – ПО ПОЗИЦИИ КУРСОРА (где в тексте поставить курсор, туда по кнопке и вставиться предложение). Помогите!

2) Для этого же примера:
Научите вставлять в текстовое поле Text1(32) готовое предложение из файла, т.е. фраза «Добро пожаловать!» записана в файле 1.txt. Как указать на имя файла и дальше - на содержимое этого файла, чтобы фразу вставить в текст?

[HiSER]

1)

Код: Выделить всё

Text1.SelText = "Добро пожаловать!"

2)

Код: Выделить всё

Dim txt As String
Open "c:\1.txt" For Input As 1
Line Input #1, txt
Close 1
Text1.SelText = txt


[BV]

а НАДО вставить «Добро пожаловать!» – ПО ПОЗИЦИИ КУРСОРА (где в тексте поставить курсор, туда по кнопке и вставиться предложение). Помогите!

Код: Выделить всё

    Text1.SelStart = _положение каретки, в символах_
    Text1.SelText = "__текст__"
    Text1.SetFocus