Convertir cualquier archivo a mayúsculas Ejercicio VB.Net - Curso de Programación Visual Basic

Imports System
Imports System.IO
Public Class binaryFileToUpper
    Public Shared Sub Main()
        Dim inFile As BinaryReader = New BinaryReader(File.Open("example.exe", FileMode.Open))
        Dim outFile As BinaryWriter = New BinaryWriter(File.Open("example.exe.upper", FileMode.Create))
        Dim filesize As Long = inFile.BaseStream.Length

        For i As Long = 0 To filesize - 1
            Dim b As Byte = inFile.ReadByte()
            If (b >= Convert.ToByte("a"c)) AndAlso (b <= Convert.ToByte("z"c)) Then b -= 32
            outFile.Write(b)
        Next

        inFile.Close()
        outFile.Close()
    End Sub
End Class