Dim s As System.IO.Stream =_

System.IO.File.Open("c:\test.txt", System.IO.FileMode.CreateNew)

Try

' Fazemos alguma coisa com o ficheiro.

' ...

Catch e As Exception

' Handle any exceptions.

' ...

Finally

  ‘A stream deverá ser fechada havendo ou não excepção

  s.Close( )

End Try