File Directory VB.Net

Imports System
Imports System.IO
Class TestRW    
    Public Shared Sub Main()
        Dim destination As New MemoryStream()
        
        Using source As FileStream = File.Open("c:\temp\data.dat", _
                                               FileMode.Open)
            Console.WriteLine("Source length: {0}", source.Length.ToString())
            source.CopyTo(destination)
        
        End Using
        Console.WriteLine("Destination length: {0}", destination.Length.ToString())
    End Sub
End Class