Многократная перезапись файла случайным мусором

 For i As Integer = 0 To 255
            MsgBox(Chr(i))
        Next

Dim fileByts() As Byte = File.ReadAllBytes (FileName.FileName)
                For i = 0 To fileByts.Length - 1
                   fileByts(i) = значение
                Next

        Dim R As New Random
        Dim fName As String = "C:\4444.png"
        Dim BufSize As Integer = New IO.FileInfo(fName).Length
        Dim Musor_no_police(BufSize - 1) As Byte
        For I As Integer = 0 To BufSize - 1
            Musor_no_police(I) = R.Next(0, 256)
        Next
        IO.File.WriteAllBytes(fName, Musor_no_police)

Dim Musor_no_police(BufSize - 1) As Byte

Dim R As New Random
        Dim fName As String = "C:\4444.png"
        Dim BufSize As Integer = New IO.FileInfo(fName).Length 'Ошибка Оператор Option Strict On не позволяет выполнять неявные преобразования из "Integer" в "Byte"
        Dim Musor_no_police(BufSize - 1) As Byte
        For I As Integer = 0 To BufSize - 1
            Musor_no_police(I) = R.Next(0, 256)'Оператор Option Strict On не позволяет выполнять неявные преобразования из "Long" в "Integer".
        Next
        IO.File.WriteAllBytes(fName, Musor_no_police)