直接这样写就行了。
Dim i As Long
If List1.ListCount > 0 Then
For i = 0 To List1.ListCount - 1
If Text1.Text = Left(List1.List(i), Len(Text1.Text)) Then
List1.ListIndex = i
Exit For
End If
Next
End If

我前面都写出来了.
如果Text1.Text 的长度大于List1.List(i)长度,那程序就报错.