'Activa en referencias la Microsoft Scripting Runtime Function InsertaCaracteres(Frase As String, Fichero As String) Dim FS As FileSystemObject, FL As File, TS As TextStream Dim Contenido Set FS = CreateObject("Scripting.FileSystemObject") If FS.FileExists(Fichero) = True Then Set FL = FS.GetFile(Fichero) Else MsgBox "El archivo no existe en la Ruta especificada: ", vbCritical, "AVISO" Set FS = Nothing Set FL = Nothing Exit Function End If Set TS = FL.OpenAsTextStream(ForReading) Contenido = Frase & TS.ReadAll TS.Close Set TS = FL.OpenAsTextStream(ForWriting) TS.WriteLine Contenido TS.Close Set FS = Nothing Set FL = Nothing End Function 'Para probar esta funcion Function prueba() InsertaCaracteres "HOLA MUNDO esto lo inserto en el fichero....", CurrentProject.Path & "\arch.txt" End Function