'Declare the variables you need
Dim iImageSize As Int64
Dim sImageType As String
Dim ImageStream As Stream

' Gets the Size of the Image
iImageSize = File1.PostedFile.ContentLength

' Gets the Image Type
sImageType = File1.PostedFile.ContentType

' Reads the Image
ImageStream = File1.PostedFile.InputStream

Dim ImageContent(intImageSize) As Byte
Dim intStatus As Integer
intStatus = ImageStream.Read(ImageContent, 0, intImageSize)

' Create Instance of Connection and Command Object
Dim cnSqlCon As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim cmdSqlCommand As New SqlCommand("YourStoredProcedureName", cnSqlCon)

' Mark the Command as a stored procedure
cmdSqlCommand.CommandType = CommandType.StoredProcedure

' Add Parameters to SPROC
Dim prmPersonImage As New SqlParameter("@MyImage", SqlDbType.Image)
prmPersonImage.Value = ImageContent
myCommand.Parameters.Add(prmPersonImage)
Try
    cnSqlCon.Open()
    cmdSqlCommand.ExecuteNonQuery()
    cnSqlCon.Close()
    Response.Write("New person successfully added!")
Catch SQLexc As SqlException
    Response.Write("Insert Failed. Error Details are: " & SQLexc.ToString())
End Try