.ValueKey = "CustomFilters"
    cR.Default = 0
    cR.ValueType = REG_DWORD
    lC = cR.Value
    If (lC &gt; 0) Then
        For lSaved = 1 To lC
            cR.ValueKey = "Filter" &amp; lC
            cR.ValueType = REG_SZ
            cboName.AddItem cR.Value
            cboName.ItemData(cboName.NewIndex) = lSaved
        Next lSaved
    End If
    
End Sub

Private Sub txtValue_Change(Index As Integer)
    If (IsNumeric(txtValue(Index).Text)) Then
        If (Val(txtValue(Index).Text) = 0) Then
         