色々やってみたがなんともならん。氏ね>ComboBox
こんなふうにやったら一応できたけど。

Dim intPos As Integer
intPos = Me.ComboBox1.SelectionStart
If 条件式 Then
　　　Me.ComboBox1.ResetText()
　　　Me.ComboBox1.Text = Restr　’KeyDownで取得しておいた値
　　　Me.ComboBox1.SelectionStart = intPos - 1
End If

自分で書いといてなんだが、欝なコードだ…(´Д`;)
仕様変更が一番楽だと思う。つーかお勧め。