Visual Basic - como crear un archivo.txt si este no existiera

Dim mleer As String
mleer = App.Path + \"\\DireccionBase.txt\"
Dim Lineas() As String, fh As Integer, I As Integer
fh = FreeFile
Open mleer For Input As #fh

asi con esas lineas de arriba lo abro, pero como crearlo si no existe ?

Con esas líneas creo que se abre y se crea si no existe.
De todas formas mira la ayuda, igual he acertado

Open "c:\bitacora.doc" For Append As #1