Adskil tal og tekst med et mellemrum

Jeg har nogle data, som ser således ud:
220  G
500 G
250 G
70 CL
70CL
4  ST
9,96KG
9,96KG
75CL

Jeg har behov for at få lavet et mellemrum der, hvor tal og tekst er sammenhængende, til dette har jeg prøvet nedenstående af, men når jeg har 9,96KG sætter den mellemrum ind før og efter kommaet (9 , 95 kg), hvordan undgår jeg dette? - Endvidere ville jeg gerne efterfølgende slette alle overflødige.blanke samt lave en tekst til kolonner, så jeg får data ud i 2 kolonner (adskilt ved mellemrum). Er dette muligt i samme makro?.


Function splittext(strText As String)
    Dim i As Integer
    Dim text As Boolean
    Dim strResult
    text = Not IsNumeric(Mid(strText, 1, 1))
    strResult = Mid(strText, 1, 1)
    For i = 2 To Len(strText)
        If text Then
            If IsNumeric(Mid(strText, i, 1)) Then
                text = False
                strResult = strResult & " " & Mid(strText, i, 1)
            Else
                strResult = strResult & Mid(strText, i, 1)
            End If
        Else
            If Not IsNumeric(Mid(strText, i, 1)) Then
                text = True
                strResult = strResult & " " & Mid(strText, i, 1)
            Else
                strResult = strResult & Mid(strText, i, 1)
            End If
        End If
    Next
    splittext = strResult
End Function