Ciao, dal tuo codice, la variabile lista viene inizializzata solo quando entra nell'IF, pertanto se non dovesse entrare nell'if, tu useresti la variabile senza "valore" e di conseguenza il prog andrebbe in errore.
modifica in Dim Lista As String=""