Как преобразовать строку, удалив в ней группы цифр, а группы букв отделить пробелами. Упорядочить полученную последовательность слов - VB

Option Explicit
'
'   © JoraVoenyjHaker
'
Public Sub example()
    Const z = ",", zz = ",,"
    Dim exampletext$, f&, s$, sn$, st$
    '----------------
    exampletext = InputBox("Введите строку..", , "abc123def456ijk78")
    For f = 1 To Len(exampletext)
        s = Mid(exampletext, f, 1)
        If IsNumeric(s) Then
            If st <> "" Then st = st & z: st = Replace(st, zz, z)
            sn = sn & s
        Else
            If sn <> "" Then sn = sn & z: sn = Replace(sn, zz, z)
            st = st & s
        End If
    Next
    '----------------
    MsgBox st & sn
End Sub
 
Sub main()
    example
End Sub