Function Sequence(txtStart As String, num As Long)
    Dim i As Long, nStart As Long, prefix As String, c As String
    Set Sequence = New Collection
    For i = 1 To Len(txtStart)
        c = Mid(txtStart, i, 1)
        If c Like "#" Then Exit For
        prefix = prefix & c ' Extrai todos os...