do while Rfl.AtEndOfStream = false
RigaFile = Rfl.ReadLine
Iniziale = UCase(Left(RigaFile, 1))

select case Iniziale
case "A"
S = S + "
" + RigaFile
case "B"
S = S + "
" + RigaFile
case "C"
S = S + "
" + RigaFile
case "D"
S = S + "
" + RigaFile
end select

Dovrei inserire un array per ognuno come posso fare