Ho necessità di dividere una stringa (prelevata dauna textbox) carattere per carattere e inserire ogni carattere in una variante ma mi sono un bloccato quasi all'inizio...

Ho provato con Split()

codice:
        Dim nome_utente As String
        Dim carattere0 As String
        Dim split_nome_utente(4) As String
 
        nome_utente = txt_nome_utente.Text

        split_nome_utente = Split(nome_utente, "a")

        carattere0 = split_nome_utente(1)

        lbl_code.Text = (carattere0)
Ma ovviamente così mi tronca la mia stringa e mi riprende dalla A (esclusa in poi)

Tipo... "Mario Rossi" diventa "rio Rossi"

io vorrei una cosa simile

M
a
r
i
o

R
o
s
s
i

Com'è possibile farlo?

Grazie ^^