Как в первом слове удвоить первую букву, во втором-вторую и т.д. - VB

Option Explicit
 
Private Sub Form_Load()
    Dim Text As String, i As Long, p As Long, w As Long
    Text = "Спой светик, не стыдись"
    Text = Text & " "
    i = 1: p = 1: w = 0
    Do Until i > Len(Text)
        Select Case Mid$(Text, i, 1)
        Case " ", ",", ".", "!", "?"
            If w <= i - p - 1 Then Text = Left$(Text, p + w) & _
                            Right$(Text, Len(Text) - p - w + 1): w = w + 1
            p = i + 1
        Case Else
        End Select
        i = i + 1
    Loop
End Sub