How to take asc value in vb.net

Private Sub Txtbrandid_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txtbrandid.KeyPress
Dim i As Integer = Asc(e.KeyChar)
MessageBox.Show(i)

End Sub