basta che nella sub CHEHAIFATTO dichiari di voler ricevere un parametro string... e nelle sub evento dove richiami la tua sub:
ciao ciaocodice:Private sub Button_click(.....)handles button.click CHEHAIFATTO("Button_Click") End Sub Private Sub CHEHAIFATTO(ByVal TipoEvento as String) label.text=tipoevento End Sub