'directory è il percorso del file ES. Dim directory As String = Application.StartupPath & "\File.ini"

ScriviIni(directory, "DATA","Anno",TexBox1.Text, True)
ScriviIni(directory, "DATA","Mese",TexBox2.Text, True)
ScriviIni(directory, "DATA","Giorno",TexBox3.Text, True)