Salve a tutti vorrei creare un programma in Visual Basic che cerca se esiste un file txt, se esiste vi inserisca una stringa al fondo del file, se non esiste crea un nuovo file e vi scrive all'interno. Vi faccio vedere ciò che ho scritto io che funziona però solo se il file non esiste

codice:
Public Sub Main()
 	Dim objTextFile
 	' Definisco una variabile contenente il file da verificare
 	Dim mioFile
 	mioFile = "C:/prova/file.txt"
  	' Definisco e creo l'oggetto FileSystemObject
 	Dim objFile 	Set objFile = CreateObject("Scripting.FileSystemObject")
  	' Verifico con FileExist se il file esiste
 	If objFile.FileExists(mioFile) Then
   		Set objTextFile = objFile.OpenTextFile(mioFile)
 	Else
 		Set objTextFile = objFile.CreateTextFile(mioFile)
 	End If

  	objTextFile.WriteLine Date()
 	objTextFile.WriteLine Time()
 	objTextFile.WriteLine "-------" 
 	' Faccio pulizia...
        Set objFile = Nothing
 	objTextFile.Close
End Sub
Qualcuno saprebbe aiutarmi non so proprio dove sbattarci la testa... Vi prego è molto urgente. Cosa sbaglio??? Dove sbaglio???