Excel - intercalar asteriscos entre cada caracter texto

si alguien pudiera ayudarme, necesito la forma de agregar un asterisco entre cada caracter de determinado texto en una celda, por ejemplo: si ingreso "abc123", que me lo convierta a " *a*b*c*1*2*3* "

con una pequeña macro se puede hacer...

'//By JuanC - Oct. 2007

Option Explicit

Sub test()
Dim l&, t$, i&
Dim cell As Range
For Each cell In [A1:A10]
l = Len(cell)
If l > 1 Then
For i = 1 To l
t = t & Mid(cell, i, 1) & "*"
Next
t = "*" & t
cell = t
t = ""
End If
Next
End Sub

Saludos desde Baires, JuanC