Изменения выделения в выпадающем списке, выбранное значение добавляется в текстовое поле после определенного символа

Question

У меня есть определенные значения в выпадающем списке, и когда я изменяю значения, выбранное мной значение должно быть заполнено в текстовом поле после определенного слова.Код, который я написал, продолжает добавлять выбранные значения в выпадающем списке вместо очистки и просто заполнения вновь выбранного значения.Пожалуйста, помогите.

Private Sub cboTrial_Change()
    Dim Searchthis As String
    Dim StartTxt, MidTxt, EndTxt As String
    Dim index As Integer

Dim s As String
StartTxt = VBA.vbNullString
MidTxt = VBA.vbNullString
EndTxt = VBA.vbNullString

Cells(1, 5).Value = cboTrial.Value

If Me. cboTrial.Enabled = VBA.vbTrue Then
    If Me. cboTrial.Value <> VBA.vbNullString Then
        Call FlagControl(cboTrial, VBA.vbFalse)
    End If
    Searchthis = "by"
    index = InStr(1, txt, Searchthis) + 2

       If index > 0 Then
            StartTxt = mid(txt, 1, index)
            MidTxt = Me. cboTrial.Value
            EndTxt = mid(txt, index, Len(txt))
            txt= StartTxt & MidTxt & EndTxt
        End If
End If
End Sub