Salve ragazzi. Ho fatto un codice semplice per scrivere una variabile caricata in input su un file ma il file viene creato ma risulta essere vuoto.

codice:
Dim Variabile As String 
Private Sub Command1_Click() 
Variabile = InputBox("Inserisci la variabile") 
Open "C:\Documents and Settings\Utente\Documenti\DATI.dat" For Output As #1
Do While Not (EOF(1)) 
Write #1, Variabile
Loop 
Close #1 
End Sub
Dove è l'errore? Il file .dat viene creato ma risulta sempre essere vuoto
Grazie in anticipo a chi mi aiuterà