eliminate blank in string

[sal21]

I have a var="sssssss yutyutyu b "

how to eliminate a blank space and reain only one?

I remember is possible with excel.application but not remember the rest of code

[HansV]

Code: Select all

Dim varS As String
varS = "sssssss                  yutyutyu b               "
' Remove leading spaces, trailing spaces and replace multiple spaces with single ones
varS = Application.WorksheetFunction.Trim(varS)

[sal21]

Code: Select all

Dim varS As String
varS = "sssssss                  yutyutyu b               "
' Remove leading spaces, trailing spaces and replace multiple spaces with single ones
varS = Application.WorksheetFunction.Trim(varS)

yeah!!!!!!
Work fine.