Public res As New List(Of String)
    Private Sub AllTheDots()
        Dim s As String = "abcdef"
 
        doChar(s, 1, s(0))
        For Each s1 In res
            Debug.WriteLine(s1)
        Next
    End Sub
 
    Private Sub doChar(ByVal s As String, ByVal i As Integer, ByVal root As _
      String)
 
        Dim nchar As Char = s(i)
        i += 1
        If i = s.Length Then
            res.Add(root & nchar)
            res.Add(root & "."c & nchar)
        Else
            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