I keep getting error updaterecord = Ctype txtEmailAdd line

Code:
Private Sub AddName_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Email = txtEmailAdd.Text
        Dim updaterecord As Record = New Record
        updaterecord = CType(Inventory.Item(recordNumber), Record)
        txtName.Text = updaterecord.Name
        txtEmailAdd.Text = updaterecord.Email()
        txtPhone.Text
...