Send email to admin upon CreatedUser, with new username

I think what I want to do is quite simple: User creates a new account.  Upon save, I have an email that goes to the user saying "thanks", and then I trigger another email in my CreatedUser function that goes to a site administrator.  I want to put the new users username in the body of this email.  I'm using a .txt file for the body of this email, and I'm assuming I have to pass it in somehow, but I don't know how.  Any ideas?  Here's my function as it exists (and works, but I get nothing in the username since I'm not declaring it anywhere):
Protected Sub CreateUserWizard1_CreatedUser(ByVal sender As Object, ByVal e As EventArgs) 'set the path to the emailtemplates directory programmatically Dim AppPath As String = Request.PhysicalApplicationPath 'set the StreamReader to a specific text file that contains th ...