Getting Button Name And Text on Mouse Click

Private Sub btnNon_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Emergency.Click
Dim buttonName As String = ""
If TypeOf sender Is Button Then
buttonName = DirectCast(sender, Button).Name
MessageBox.Show(buttonName)
End If

For  Getting Text :-
 buttonName = (CType(sender, Button).Text)