更新VBA列表框中的所有选定项目

如何解决更新VBA列表框中的所有选定项目

我有一个列表框（Multiselectmulti），其中包含来自Excel工作表的项目。我要更新其中的所有选定项目。更新基于excel工作表中每个项目的ID。因此，一旦我选择了所有项目，然后单击“更新”按钮，它将在所选项目上循环显示，然后将获取每个项目的ID，然后在excel工作表上对其进行更新。

我有以下代码，但它只会更新我的多项选择中的第一项。 如何更新所有选定的项目？

For i = 0 To Me.lst_leaves.ListCount - 1
    If Me.lst_leaves.Selected(i) Then
        
        Me.txt_vlid.Value = lst_leaves.List(i,5) '--- get ID of item in column 5
                
        With Worksheets(home.txt_useridm.Value & "_VL_Request").Cells '--- find ID in excel sheet

            Set rngFound = .Find(Me.txt_vlid.Value,LookIn:=xlValues)
            
                If Not rngFound Is nothing Then
                    .Range("E" & rngFound.Row).Value = Me.cmb_vlstatus.Value
                End If

        End With
    
    End If

Next