Visual Basic - problemas con archivos de texto

Hola a todos, he creado una aplicacion que me carga de un archivo.txt en varias cajas de texto. Creo el fichero pero mi problema es que cada vez que ejecuto el programa me crea un nuevo archivo.txt y pierdo lo que tenia guardado. Como puedo hacer para hacer que si el archivo.txt no existe que lo cree y si sí existe que haga lo demás.

voy a dejar el codigo para que lo veais:

PARA CREAR EL ARCHIVO Y VOLCAR EL CONTENIDO EL LOS TEXTBOX:

Private Sub Form_Load()

Dim F, A
Set F = CreateObject("Scripting.FileSystemObject")
Set A = F.CreateTextFile(App.Path + "\memo.txt", True)

canallibre = FreeFile
Open App.Path + "\archivo.txt" For Input As #canallibre
Line Input #canallibre, volcado1
Line Input #canallibre, volcado2
Line Input #canallibre, volcado3
Close #canallibre
'Close "c:\archivo.txt"
txtinterval.Text = volcado1
txtnuevo.Text = volcado2
txtnuevo2.Text = volcado3
End Sub

Tengo que hacerlo al cargar el formulario me lo exigen así. El problema también es que si el archivo.txt está vacio me da un error al volcar el contenido en los textbox. (Si podeis resolverme esa duda tambien)

VOLCAR LOS DATOS DE LOS TEXTBOX

Private Sub cmdaceptar_Click()

canallibre = FreeFile
'Abrimos el fichero en el canal dado
Open App.Path + "\memo.txt" For Output As #canallibre
'Escribimos el contenido del TextBox al fichero
Print #canallibre, configurar.txtinterval.Text
Print #canallibre, configurar.txtnuevo.Text
Print #canallibre, configurar.txtnuevo2.Text
Close #canallibre

End Sub

La variable canallibre la he declarado en un modulo.bas para que se reconozca en todo el programa

Public canallibre As Integer.

Bueno si alguien me puede ayudar.

Sustituye "For Output" por "For Append" de este modo si el archivo no está creado lo creará y si ya existe añadirá el texto.

O sino podes utilizar la funcion "Dir" para revisar si el archivo existe, y de esta forma, si existe hacer q pregunte si desea reemplazarlo o seguir utilizando el mismo.