Dim i As Integer
 
With Combo1
  For i = 0 To .ListCount - 1
    If Val(Mid$(.List(i), 501)) = 3 Then  ' oder evtl. auch 1001 (siehe oben)
      .ListIndex = i: Exit For
    End If
  Next i
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de