Problema con la lectura y escritura de un arxivo

[bautistasbr]

Ola amigo,toy con un programa q usa unas opciones y tiene q guardarlas en un arxivo al cerrar el programa,y cargarlas al abrirlo.Lo que pasa q el arxivo lo guarda con un nombre q no es,y cuando abro el programa siempre me dice q el arxivo no existe.

Mi code es este

Private Sub configuracion(fileName As String)
On Error Resume Next

Close App.Path & "\config.dat" & fileName
Open App.Path & "\config.dat" & fileName For Output As #1

Print #1, "Color=" & config.Combo1.Text

Close #1
MsgBox "Archivo Creado Correctamente"
End Sub

Private Sub Form_Load()
On Error Resume Next
Dim Respuesta As Integer
Dim Script As Object
Dim fnum As Integer
Set Script = CreateObject("Scripting.filesystemobject")
If Script.FileExists(App.Path + "\config.dat") = True Then
    Text1.Text = ""
On Error GoTo Ninguno
fnum = FreeFile
    Open App.Path & "\config.dat" For Input As fnum
    Do While Not EOF(fnum)
        Line Input #fnum, txt
        Text1.Text = Text1.Text & vbCrLf & txt
    Loop
    Close fnum
Ninguno:
Else
    Respuesta = MsgBox("El archivo config.dat no existe,¿Desea que el programa lo cree?", vbYesNo, "Error")

If Respuesta = vbYes Then
  Call configuracion("config.dat")

Else
   
End If
End If
end sub

[bautistasbr]

ya e arreglado el problema

gracias