Array de bytes en filestream

Hola de nuevo ahora tengo un problema al ejecutar este código a ver si fueras tan amable de decirme porque me dice que el indice esta fuera de los limites de la matriz solo haz caso del filestream lo demás ignoralo, gracias, un saludo
Sub Main(ByVal args As String())
' Step 1: Create the hash algorithm object
Dim myHash As MD5 = New MD5CryptoServiceProvider
' Step 2: Store the data to be hashed in a byte array
Dim file As FileStream = New FileStream(args(0), _
FileMode.Open, FileAccess.Read)
Dim reader As BinaryReader = New BinaryReader(file)
' Step 3: Call the HashAlgorithm.ComputeHash method
myHash.ComputeHash(reader.ReadBytes(CType(file.Length, Integer)))
' Step 4: Retrieve the HashAlgorithm.Hash byte array
Console.WriteLine(Convert.ToBase64String(myHash.Hash))
Console.Read()
End Sub