codice:
Dim nome
nome = "pippo"
Dim inizio
Dim centro
Dim fine
inizio = Left(nome, 2)   'prendo le prime due
centro = Mid(nome, 3, 1) 'prendo dalla 3a per 1
fine = Right(nome, 2)    'prendo le ultime due
Ti riporto un esempio di come fare a pescare le lettere di una parola
Vedi se questo esempio ti puo' aiutare )

laufer