Visual Basic - Re-escribir informacion en archivo ini

les dejo un gran saludo y necesito su ayuda para lo siguiente:

¿Que sentencia puedo usar para que en un archivo ini por ejemplo en el system, me agrege una linea en el archivo y que siempre que se habra el progrograma si ya existe que no lo vuelva a escribir o bien, que lo escriba pero en la misma linea?, lo hago así, para que mi aplicación se carge al inicio

Esta es la setencia que estoy utilizando:
Open "C:\Win\Win.ini" For Append As #1
Print #1, "Shell=C:\Program Files\Mp3 Vox Studio 4.0\Mp3 Vox Studio 4.0.exe"
Close

Ovbiamente "APPEND", va agregando lineas en el mismo archivo sin eliminar la existente, y yo quiero realizar lo antes mencionado.

Les agradecería mucho su ayuda

tienes q hacer servir la API de windows. Las funciones són:
GetPrivateProfileString(...) para leer un fichero ini y WritePrivateProfilleString para escribir. Busca API en el google i encontrarás más información y ejemplos

Esto tal vez te sirva

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Sub GrabaINI(Archivo As String, Seccion As String, Clave As String, Text As String)
WritePrivateProfileString Seccion, Clave, Text, Archivo
End Sub

Para grabar un valor en el archivo INI solo tienes que llamar a la sub, por ejemplo:

GrabaINI "C:\test.ini", "Seccion1", "Clave1", "contenido"

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Function LeeINI(Archivo As String, Seccion As String, Clave As String)
Dim iRetLen As Integer
Dim sRet as string
sRet = Space(255)
iRetLen = GetPrivateProfileString(Seccion, Clave, "", sRet, Len(sRet), Archivo)
sRet = Left(sRet, iRetLen)
LeeINI = sRet
End Function

Para leer un valor del archivo INI solo tienes que llamar a la funcion, por ejemplo:

sValor = LeeINI("C:\test.ini", "Seccion1", "Clave1")