'Trim the leading and trailing spaces in a string Const paddedText As String = " Foo酒吧 " Dim trimmedText As String trimmedText = Trim$(paddedText) 'trimmedText = "Foo酒吧"