Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.Click
    processLogin()
End Sub

Private Sub processLogin()
    Dim us As New User(txtEmail.Text, txtPassword.Text)

    Try
        us.Login()

        FormsAuthentication.RedirectFromLoginPage(txtEmail.Text, true)

        If String.IsNullOrEmpty(Request.Params("returnUrl"))
            Response.Redirect("~/User/Default.aspx")
        Else
            Response.Redirect(Request.Params("returnUrl")
        End If
    Catch ex As Exception
        lblErrorAction.Text = "Login"
        lblErrorMessage.Text = String.Format("Error actioning request: [ {0} ]", ex.Message)
        pnlErrorBackground.Visible = True
        pnlErrorModal.Visible = True
    End Try
End Sub