Ok allora datemi dei suggirimenti

Prima di tutto creo il tasto e poi associ la funzione

Sub Button1_Click (Cliccando sul pulsante 1 accede a questa subroutine)
numero=1 (imposti il valore della variabile in base al pulsante premuto)

Numero_Premuto (questa riga di comando passa alla subroutine "Numero_Premuto")
End Sub (termina la sub)

La Sub che segue gestirà il processo dopo che premi uno dei pulsanti che hai creato.
Sub Numero_Premuto

If numero=1 then listbox1.text="Hai premuto il pulsante 1" (Associa alla listbox1 il testo tra parentesi)
If numero=2 then listbox1.text="Hai premuto il pulsante 2"
If numero=3 then listbox1.text="Hai premuto il pulsante 3"

End Sub