Public Function TrimArray(arr As Variant) As Variant
Dim k As Integer
    k = 0
    For i = 0 To UBound(arr)
       If arr(i) <> "" Then
           ReDim Preserve TrimArray(k)
           TrimArray(k) = arr(i)
           k = k + 1
       End If
    Next i
End Function