Turhien välilyöntien poisto?

Sub Trimmaa()
Dim Solu As Range
'muuta solualue sopivaksi...
For Each Solu In Range("A1:C10")
Solu.Value = Trim(Solu.Value)
Next Solu
End Sub

Löysin tuonmoisen "pikaohjeen". Ihan uusi tuttavuus minullekkin. Eli.
- valitse hiirellä puhdistettavat solut
- Aloitus välilehdeltä valitse "Etsi ja valitse" ja sieltä "Korvaa"
- "Etsittävä" kohtaan kirjoita Alt-painike pohjassa 0160 (näkyviin ei jää mitään)
- "Korvaava" kohta jätä tyhjäksi
- klikkaa "Korvaa kaikki"
Nopea tapa valita sarakkeesta kaikki alekkaiset luvulliset solut, Valitse hiirellä ensimmäinen. Ctrl ja Vaihto pohjassa klikkaa "Nuoli alas", jos tulee tyhjä solu vastaan paina "Nuoli alas" uudestaan,

Tämä poistaa kaikki välilyönnit maalatulta aluelta:

Sub Siivoa()
   For Each solu In Selection
       With WorksheetFunction
          a = .Substitute(solu.Text, " ", "")
          a = Val(.Substitute(a, ",", ".")) ' jos on desimaaliliukuja
 
          solu.Value = a
          solu.NumberFormat = "General"
        End With
   Next solu
End Sub

Miten saadaan välilyönnin jälkeen tuleva 8 pois. Esim. välilyönti 8pois?