Как удалить пробелы между текстом?

Почему обрезка не работает в VBA?

for i = 3 to 2000
activesheet.cells(i,"C").value = trim(Activesheet.cells(i,"C").value)
next i

Невозможно удалить пробелы между текстом.

 hiii              how ' even after trying trim the o/p is still these
 hiii              how

Мне нужно удалить лишние пробелы, поэтому я нашел Trim , чтобы сделать это, но он не работает, в то время как ltrim и rtrim работают.