Private Function GetFileFromRessource(ByVal Name As String) As IO.Stream
        Dim casm As System.Reflection.Assembly = _
          System.Reflection.Assembly.GetExecutingAssembly()
        Return casm.GetManifestResourceStream(casm.GetName.Name + "." + Name)
    End Function

                    Dim fstreamer As New FileStream("Demo.csv", FileMode.Open, _
                      FileAccess.Read)
                    Dim SReader As New StreamReader(fstreamer, _
                    System.Text.Encoding.Default)
 
                    Do Until SReader.Peek = -1