upload file แบบ multiple upload มีการอัพโหลดไฟล์ได้หลายไฟล์ ช่วยแนะนำหน่อยค่ะ

<asp:FileUpload ID="FileUpload1" runat="server" /><br />
        <asp:FileUpload ID="FileUpload2" runat="server"/><br />
        <asp:FileUpload ID="FileUpload3" runat="server" /><br /><br />
        <asp:Button ID="cmdOK" runat="server" Text="ตกลง" />

 Protected Sub cmdOK_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cmdOK.Click
        If FileUpload1.PostedFile.ContentLength > 131072 Then
            Response.Write("ขนาดของไฟล์ใหญ่เกินไป ขนาดของไฟล์ต้องไม่เกิน 128KB!!! ")
            Exit Sub
        End If
        If FileUpload2.PostedFile.ContentLength > 131072 Then
            Response.Write("ขนาดของไฟล์ใหญ่เกินไป ขนาดของไฟล์ต้องไม่เกิน 128KB!!! ")
            Exit Sub
        End If
        If FileUpload3.PostedFile.ContentLength > 131072 Then
            Response.Write("ขนาดของไฟล์ใหญ่เกินไป ขนาดของไฟล์ต้องไม่เกิน 128KB!!! ")
            Exit Sub
        End If

        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim CurrentFileExt As String
        Dim IsUpload As Boolean = False
        Dim IsExtOK As Boolean = False
        Dim ExtToOK As String() = {".jpg", ".jpeg", ".gif"}
        Dim CurrentPath As String = Server.MapPath("~/Uploads/")
        Dim UserFile As HttpFileCollection = Request.Files

        Try
            Do Until i = UserFile.Count
                Dim CurrentFileName As HttpPostedFile = UserFile(i)
                If CurrentFileName.FileName <> "" Then
                    CurrentFileExt = Path.GetExtension(CurrentFileName.FileName).ToLower()
                    For j = 0 To ExtToOK.Length - 1
                        If CurrentFileExt = ExtToOK(j) Then
                            IsExtOK = True
                            Exit For
                        Else
                            IsExtOK = False
                        End If
                    Next
                End If
                If IsExtOK = True Then
                    If (CurrentFileName.ContentLength > 0) Then
                        IsUpload = True
                        CurrentFileName.SaveAs(CurrentPath & Path.GetFileName(CurrentFileName.FileName))
                    End If
                End If
                i += 1
            Loop

            If IsUpload = True Then
                Response.Write("<br>อัพโหลดไฟล์ เรียบร้อยแล้ว !!!")
            ElseIf IsUpload = False Then
                Response.Write("<br>คุณเลือกไฟล์ผิดประเภท กรุณาเลือกใหม่ !!!")
            End If
        Catch ex As Exception
            Response.Write("ไม่สามารถอัพโหลดไฟล์ได้ เนื่องจาก " & ex.Message)
        End Try
    End Sub