Usa

codice:
   Dim fs As FileStream = Create(name3)
   fs.Close()
ovviamente con

Imports System.IO