If I understand your problem correctly, could you not just do this:
Code:
    Combo1.ListIndex = whatever
    Combo1.SelStart = 0
    Combo1.SelLength = Len(Combo1.Text)