Se hai una ListBox con solamente 6 numeri puoi usare la funzione Chr dopo aver estratto un numero casuale risparmiando la ListBox.

Numero = Int(6 * Rnd + 1)
Text1.Text = Chr(Numero + 48)

Altrimenti usa la proprietà List:

Numero = Int(6 * Rnd + 1)
Text1.Text = List1.List(Numero - 1)


Ciao