basta che nella sub CHEHAIFATTO dichiari di voler ricevere un parametro string... e nelle sub evento dove richiami la tua sub:

codice:
Private sub Button_click(.....)handles button.click
 CHEHAIFATTO("Button_Click")
End Sub

Private Sub CHEHAIFATTO(ByVal TipoEvento as String)
 label.text=tipoevento
End Sub
ciao ciao