Private Sub doChar(ByVal s As String, ByVal i As Integer, ByVal root As _
      String)
 
        If i = s.Length Then
            res.Add(root)
        Else
            Dim nchar As Char = s(i)
            i += 1
            doChar(s, i, root & nchar)
            doChar(s, i, root & "."c & nchar)
        End If
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist