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...