حذف بعضی مقادیر از لیست باکس

با سلام من داخل لیست باکسم حدود 100 تا یا بیشتر مقدار دارم
الان میخوام اون سطرهایی که اولشون با ! شروع میشه را از داخل لیست حذف کنم
چه طوری باید این کار را انجام بدم

درود...

Dim x, y

For x = 0 To List.ListCount

y = List.List(x)

If Left(y, 1) = "!" Then List.RemoveItem (x)

Next

سلام

تئوری کد شما درسته ولی ایرادش اینجاست که هر دفعه RemoveItem میکنید تعداد ListCount یک عدد کم میشه... پس بهتره که از For Next استفاده نکرد...

Dim x As Integer, y As String



Do Until x = List1.ListCount

        y = List1.List(x)

        If Left(y, 1) = "!" Then List1.RemoveItem (x): x = x - 1

        x = x + 1

Loop