Access - Ayuda con este codigo para crear un .docx

' Crea el nombre del archivo
sFilename = DLookup("path", "attachments") & "Procedimiento (" & sRegNumber & ") " & Me.Parent!Texto8 & " " & Me.Parent!Name & "" & ".docx"

' AQUÍ, es donde necesito que además de verificar que si ya hay uno de igual nombre, no prosiga al presionar NO, me aparezca otro cuadro de diálogo que me dé la opción de crear un nuevo ".docx" con un nombre nuevo y con posibilidad de editarlo, por ejemplo:
"(IngreseTexto) 10-1000-20 Ana Gonzalez.docx", siempre respetando la ruta
If Len(Dir$(sFilename)) <> 0 Then
If MsgBox("File 'Procedimiento (" & Me.Parent!NumberReg & ").docx' already exists." & vbCrLf & _
"Lo sobreescribe?", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
End If
Kill sFilename
End If

' Crea el registro en el subform si no lo está
If DCount("1", "AttachmentsReceived", "[NrLNA] = " & Me.Parent!Texto13 & " And FullFileName = '" & sFilename & "'") <> 0 Then


Else
' agrega la ruta y nombre del word.docx
CurrentDb.Execute "insert into AttachmentsReceived ( [NrLNA], FullFileName ) " & _
"select " & Me.Parent!Texto13 & ",'" & sFilename & "'"

Me.Requery
End If