remove whitespace or tabs

For x = LBound(myArray) To UBound(myArray)
    myArray(x) = Replace(Application.Clean("a" & myArray(x))," ","")
Next

Should do.