VisualBasicで、現在textボックスに文字が入力されている状態

Ex.
aaa
に、コンボボックスから文字列を追加したいのですが、aaaが消えてしまいます。

下記のコードはどこがおかしいでしょうか？

-------------------------------
Private Sub Combo1_Click()
Text1.Text = Combo1.Text
StrValue = Text1.Text
If Combo1.ListIndex = 0 Then ’AAAの場合
Text1.Text = StrValue + ”<MTEntryField>” & ”あいうえお” & ”</MTEntryField>”
End If
If Combo1.ListIndex = 1 Then ’BBBの場合
Text1.Text = Text1.Text + ”<MTEntryField>” & ”かきくけこ” & ”</MTEntryField>”
End If
End Sub