WorksheetFunction.Trim (Excel)

Remove todos os espaços do texto exceto os espaços únicos entre palavras. Use aparar no texto que você recebeu de outro aplicativo que pode ter espaçamento irregular.

Trim (Arg1)

Arg1: Texto - o texto do qual se deseja remover espaços.

Dim strArg1 As String: strArg1 = 
Dim strTrimmed As String
strTrimmed = WorksheetFunction.Trim(Arg1:=strArg1)