I have 0 to 59 numbered files I want create 10 new folders and I want move 6 files in each folder

Dim s As String = IO.File.ReadAllText("C:\Users\mks\Desktop\Newfolder\P6.A3")
       Dim counter As Integer = 0
       Dim wFile As System.IO.FileStream
       Dim byteData(), byteDatarp1() As Byte
       Dim rp As String
       Dim r As String = Regex.Replace(s.ToString, "[^1-9Z-]", "")
       '    Console.WriteLine(r)
       r = Regex.Replace(r.ToString, "[-]", "0")
       Dim elements() As String = Regex.Split(r, "Z")

       For Each element In elements
           '  Console.WriteLine(elements(counter))
           rp = elements(counter)
           byteData = Encoding.ASCII.GetBytes(rp)


           If Not Directory.Exists(Application.StartupPath + "\sample" + counter.ToString) Then

               Directory.CreateDirectory(Application.StartupPath + "\sample" + counter.ToString)

           End If

           Dim abc As String = Application.StartupPath + "\test\r" + counter.ToString + ".mod"
           Dim abc1 As String = Application.StartupPath + "\test\ra" + counter.ToString + ".mod"
           System.IO.File.WriteAllText(abc, "")
           wFile = New FileStream(abc, FileMode.Append)
           wFile.Write(byteData, 0, byteData.Length)
           wFile.Close()

           counter += 1
           For i As Integer = 0 To s.Length - 1 Step 1
               If i Mod 1 = 0 Then


               End If
               Try
                   If counter Mod 2 > 0 Then
                       Dim rp1 As String = i / 10 & " " & rp.Substring(i, 1) & Environment.NewLine
                       byteDatarp1 = Encoding.ASCII.GetBytes(rp1)
                       wFile = New FileStream(abc1, FileMode.Append)
                       wFile.Write(byteDatarp1, 0, byteDatarp1.Length)
                       wFile.Close()

                   Else
                       Dim rp1 As String = i / 10 & " -" & rp.Substring(i, 1) & Environment.NewLine
                       byteDatarp1 = Encoding.ASCII.GetBytes(rp1)
                       wFile = New FileStream(abc1, FileMode.Append)
                       wFile.Write(byteDatarp1, 0, byteDatarp1.Length)
                       wFile.Close()
                   End If


               Catch ex As ArgumentOutOfRangeException
                   Exit For
               Finally
               End Try

           Next


       Next

       MsgBox("FIlE HAS BEEN PROCEESED")
   End Sub