Вывести на экран все возможные "слова" (сочетания букв), получаемые из букв слова - VB

Option Explicit
Dim S_Msg As String
 
Sub main()
  S_Msg = ""
  Pn InputBox("Введите слово:", , "1234")
  MsgBox S_Msg
End Sub
 
Public Sub Pn(S As String, Optional SS As String = "")
Dim i As Integer
  If Len(S) = 1 Then
    S_Msg = S_Msg & SS & S & vbLf
  Else
    For i = 1 To Len(S)
      Pn Left$(S, i - 1) & Mid$(S, i + 1), SS & Mid$(S, i, 1)
    Next
  End If
End Sub