event keydown enter VB.net

 Private Sub pay1_KeyDown(ByVal sender As Object, ByVal e As  System.Windows.Forms.KeyEventArgs) Handles pay1.KeyDown

                   If e.KeyCode = Keys.Enter Then

                Dim a, c, d As Single

                a = pay1.Text

                d = hardware_price1.Text

                stay1.Text = c

                stay1.Text = Format(Val(hardware_price1.Text) - Val(pay1.Text), "0.00")

            End If

        Catch

        End Try

    End Sub