请问如何思路可以返回组合框里的文本的位置呢？

dim r as integer

combo1.text=combo1.list(r)

pring r

这样是不行的，请问有什么办法解决？谢谢各位朋友帮忙！