Filter Array value using UFT

a= array("Red","Blue","Yellow")

b = Filter(a,"B")
c = Filter(a,"e")
d = Filter(a,"Y")

For each x in b
  MsgBox "Filter 1: " & x 'Return Blue
Next

For each y in c
  MsgBox "Filter 2: " & y 'Return Red,Blue,Yellow
Next

For each z in d
  MsgBox "Filter 3: " & z 'Return yellow
Next

....