remove whitespace or tabs

HI ALL.

I'm looping through an array and trying to remove any leading or ending whitespace but I can't seem to figure out why it's not working as I get extra values which I believe are hidden TABS. Here is my code below to try and clean the array value . What am I doing wrong.

myArray = Split(TextBox1.Value, Chr(13))


 For x = LBound(myArray) To UBound(myArray) 'define start and end of array


           f = myArray(x)
           f = Replace(f, vbLf, "")
           f = Replace(f, " ",

"")

Does this work?

f= Application.Trim(Application.Clean(f))

Just tried and it did not work. AHHHHHHHHH!!

Tracy

How is it not working?

No change?

Do you have a line like

myArray(x)=f

after the line?

Otherwise I need to see actual string.

this is what I have while looping. it's a mess.

  f = "a" & myArray(x)
          f = Replace(f, vbLf, "")
          f = Replace(f, " ", "")
          f = Trim(f)
          f = Application.Trim(Application.Clean(f))

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

Should do.

still dont work. What I did was in a text file i simply enter numbers. I would type 22 hit enter then hit tab enter 23 tab tab enter 24. I copied this into my userform and submitted it into an array and get 6 values 3 of them blank because of the tab.


22

23


24

Then try

'Your code
For x = LBound(myArray) To UBound(myArray)
    myArray(x) = CleanAll("a" & myArray(x))
Next
' Your code

Add this function somewhere outside above procedure.

Function CleanAll(ByVal txt As String) As String
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[\n\t\v\f\s]+"
        CleanAll = .Replace(txt, "")
    End With
End Function

I'll give it a try now and reply back

still not working

Every suggestion I gave is working here, so no idea why it doesn't work at your side.