title: Filtering out Numbers from Array
body: <p>So I have an Array called TagOptions  - it contains numeric values according to a pervious if statement. In order to take out values I didn't want I gave the undesired values a place holder value of 0. I am now trying to filter out this value but can't find anything online that is helpful.</p>
  <p>Will paste the entire function for context but more interested in just filtering out the placeholder zeros from my array.</p>
  <p>Sorry if this is novice but I am very new to this:</p>
  <pre><code>Private Sub CommandButton4_Click()
  Dim sh As Worksheet
  Set sh = ThisWorkbook.Sheets(&quot;TEST&quot;)
  lrow = sh.Cells(Rows.count, 1).End(xlUp).Row
  Dim splitstring As String
  Dim holder As String
  Dim myarray() As String
  Dim strArrayNumber() As Integer
  Dim strArrayTag() As String
  Dim TagOptions() As Integer
  Dim TagOptions2() As Integer
  ReDim strArrayNumber(1 To lrow) As Integer
  ReDim strArrayTag(1 To lrow) As String
  
  
  'Initial for loop splitting tags and removing any tags with text (MV-4005A)
  'Transfering those remaining tag numbers into array if they match equip selected
  
  For a = 1 To lrow
  
  If sh.Cells(a, 1).Value &lt;&gt; vbNullString Then
  splitstring = sh.Cells(a, 1).Value
  myarray = Split(splitstring, &quot;-&quot;)
  strArrayTag(a) = myarray(0)
  End If
  
  If IsNumeric(myarray(1)) = False Then
  
  myarray(1) = 0
  
  End If
  
  If strArrayTag(a) = TagNumber1.Value Then 'Only stored if has selected Equipment tag
  strArrayNumber(a) = myarray(1)
  End If
  
  Next a
  
  'Sort Created Array
  
  Quicksort strArrayNumber, LBound(strArrayNumber), UBound(strArrayNumber)
  
  ReDim TagOptions(1000 To 2000) As Integer
  
  Dim j As Integer
  For j = 1000 To 2000
  
      For b = 1 To UBound(strArrayNumber)
  
          If strArrayNumber(b) = j Then
  
              TagOptions(j) = 0
              Exit For
  
             Else
  
              TagOptions(j) = j
  
          End If
      
      Next b
  
      sh.Cells(j, 8) = TagOptions(j)
  Next j
  
  Quicksort TagOptions, LBound(TagOptions), UBound(TagOptions)
  
  For f = LBound(TagOptions) To UBound(TagOptions)
  
  sh.Cells(f, 9) = TagOptions(f)
  
  Next f
  
  **TagOptions2 = Filter(TagOptions, &quot;0&quot;, False, vbDatabaseCompare)**
  
  Me.ComboBox1.List = TagOptions
  
  
  End Sub
  </code></pre>
  <p>Thnak you in advance for any help.</p>