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

dim r as integer

combo1.text=combo1.list(r)

pring r

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

错别字好多哦，
应该是在组合框的Click事件中写
例：
Private Sub Combo1_Click()
Print Combo1.ListIndex
End Sub

不是很明白你的意思。