putting value in array 2D using vb.net

Dim s(5000000) As Byte
Dim sound() As UShort
Dim Binary(5000000, 8) As UShort
Dim arraysound(5000000, 8) As Integer
Dim l As Integer
Dim ST As String
Sub To_Binary(ByVal Sound() As UShort, ByRef Binary(,) As UShort)
    For i = 1 To l
        Dim D As Integer
        D = 1
        While Sound(i) > 0
            Binary(i, D) = Sound(i) Mod 2
            Sound(i) = Sound(i) \ 2
            D = D + 1
        End While
    Next
End Sub


Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click

    Dim i As Integer
    Dim w As New System.IO.StreamWriter("D:\information.txt")
    s = FileIO.FileSystem.ReadAllBytes("D:\male.wav")
    ReDim sound(Int(s.Length))

    l = s.Length

    For i = 0 To l - 1
        sound(i) = Int(s(i))

        w.WriteLine(sound(i))
    Next
    To_Binary(sound, Binary)
    Dim ST As String
    My.Computer.FileSystem.WriteAllText("d:\binary.txt", "", False)
    For i = 1 To sound.Length
        ST = ""
        For j = 0 To 7
            ST += Binary(i, j).ToString
        Next

         My.Computer.FileSystem.WriteAllText("d:\binary.txt", ST + vbCrLf, True)

    Next

    For i = 1 To sound.Length
        For j = 1 To 8
            arraysound(i, j) += ST

        Next

    Next

   For i = 1 To 4
       For j = 1 To 8
            TextBox5.Text += arraysound(i, j).ToString()
        Next
    Next
    w.Close()
End Sub