How about checking the LEN of the var?

Code:

Dim $y, $Array 

$Array = "A1", "B2", "C3", "", "C5", "", "C7", 0

$NewArray = TrimArray($Array)

For Each $Element In $NewArray
 ?"Element=" $Element
Next

Exit 0

Function TrimArray($Array)

 dim $i, $element, $ar[UBound($Array)]

 $i = 0

 For Each $Element In $Array

  If Len($Element)

   $ar[$i] = $Element
   $i = $i + 1

  Endif

 Next

 If $i
  REDIM PRESERVE $ar[$i-1]
 Endif

 $TrimArray = $ar

EndFunction