select case

[francy_eb]

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

[Alethesnake]

tirando a caso, vuoi beccare l'iniziale della riga che sta in un file di testo?

in questo caso puoi usare chr() dove tra parentesi metti il valore numerico corrispondente alla lettera (fai delle prove) in questo modo puoi utilizzare un ciclo

cmq non si capisce molto bene cosa cerchi, prova ad essere più chiara

[francy_eb]

Sulla base del fatto che con quella select case estrapolo tutti le parole che iniziano per A per B per C e per D, vorrei suddividerle tra di loro per poi stampare i blocchi, perciò pensavo di inserire degli array ma non so come fare.
Grazie

[francy_eb]