salve ... ho un problema .. spero mi possiate aiutare ..

allora.. io doveri salvare un file .. e fini qui tutto apposto .. perkè il file me lo salva .. però c'e un problema .. quando riapro l'inputbox per risalvare il file .. e lo rikiudo senzsa aver scritto niente .. cliccando sulla x o facendo annulla .. mi salva lo stesso il file .. però mi salva il text dell'inputbox cioe il file .. ma vuoto .. come devo risolvere questo problema ..
questo è il codice ...


codice:
Open App.Path & "\stringa.txt" For Input As #1
Input #1, stringa
Close #1
Open App.Path & "\stringa.txt" For Output As #1
Print #1, InputBox$("Nick Corrente= " & stringa & "      Nuova Stringa?", "Applicazione")
Close #1
spero di essermi spiegato .. grz