<div>
Here is some VBA code that assumes you have already translated the barcode into text in cell A1. It will then parse that value by the first underscore character, create a text file, and then write the other part of the value into that text file. 

<pre><code class="code-10 nolinks" id="code-20-41529503-1">Sub BarcodeToTextFile()
Dim cel As Range
Dim fileName As String, sText As String
Dim i As Long
Dim fso As Object, oFile As Object

 'Barcode is scanned into this cell. No OCR is performed--your scanner must put a value like 123456_56_23 into this cell.
Set cel = Range(&quot;A1&quot;)
i = InStr(1, cel.Value, &quot;_&quot;)
If i &gt; 0 Then
 fileName = &quot;C:\&quot; &amp; Left(cel.Value, i - 1) &amp; &quot;.txt&quot;
 fileName = &quot;X:\VBA\Sample '16\&quot; &amp; Left(cel.Value, i - 1) &amp; &quot;.txt&quot;
 sText = Mid(cel.Value, i + 1)
 Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
 Set oFile = fso.CreateTextFile(fileName)
 oFile.WriteLine sText
 oFile.Close
 Set fso = Nothing
 Set oFile = Nothing
End If
End Sub
</code></pre>
</div>

<div>
Thank you byundt, but I have a few questions please: 
 
1- I put the code in the VBAProject under sheet 1, is that correct? 
 
2- Is the code supposed to run when the cell is populated? &nbsp;What triggers the code to run? &nbsp;I typed something in there to test it and nothing happened. 
 
3- What is this for?: fileName = &quot;X:\VBA\Sample '16\&quot; &amp;&nbsp;Left(cel.Value, i - 1) &amp;&nbsp;&quot;.txt&quot; 
I don't have an X drive. 
 
Thanks for your help!
</div>

<div>
1. You put the code in a regular module sheet. Use the Insert...Module to create one. 
2. The code runs when you call it using the ALT + F8 macro selector. If you want it to run automatically, you will need a Worksheet_Change event sub to call it. The Worksheet_Change sub runs automatically whenever any value changes on the worksheet. 
3. My apologies for the statement referencing my X:\VBA\Sample '16\ test folder. I tested the code several times during development, and use my X drive for that purpose. You may delete that statement.
</div>

<div>
Getting a little closer. &nbsp;Now it's telling me Runtime error 70 - &nbsp;permission denied. &nbsp;I debugged and the error occurs here: 
 
Set oFile = fso.CreateTextFile(fileName) 
 
I changed my security setting to enable all macros and that didn't work.
</div>

<div>
Your runtime error sounds more like a policy setting is preventing write access to the root level of your C drive. 
 
Try changing the drive &amp;&nbsp;folder in statement 11 to a location where you know you have write permission. The error is discussed in more detail here (albeit for Visual Studio rather than Excel VBA): <a href="https://msdn.microsoft.com/en-us/library/aa264534%28v=vs.60%29.aspx" rel="ugc">Permission Denied (Error 70)</a>
</div>

<div>
That worked! &nbsp;I am so close. &nbsp;Would you mind helping me with just two more things? 
 
Here's what would populate in the cell: 
 
1291039_4_1_532_449_23 
 
I need the file to be called &quot;1291039_4_1.txt&quot; and the contents of the file to be &quot;532,449,23&quot;. 
 
Lastly, how do I get the Worksheet_Change event sub going? 
 
Really appreciate your help.
</div>

<div>
I figured out the change event. &nbsp;Now I just need help with the first question. 
 
Here's what would populate in the cell: 
 
&nbsp;1291039_4_1_532_449_23 
 
&nbsp;I need the file to be called &quot;1291039_4_1.txt&quot; and the contents of the file to be &quot;532,449,23&quot;.
</div>

<div>
Please post your Worksheet_Change sub. I'll help you restrict its actions to a designated cell or range of cells. 
 
Revised code for new problem statement: 

<pre><code class="code-10 nolinks" id="code-20-41530573-1">Sub BarcodeToTextFile()
Dim cel As Range
Dim fileName As String, sText As String
Dim i As Long
Dim fso As Object, oFile As Object
Dim nm As Name
'1291039_4_1_532_449_23
'I need the file to be called &quot;1291039_4_1.txt&quot; and the contents of the file to be &quot;532,449,23&quot;.
 'Barcode is scanned into this cell. No OCR is performed--your scanner must put a value like 123456_56_23 into this cell.
Set cel = Range(&quot;A1&quot;)
i = InStr(1, cel.Value, &quot;_&quot;) 'Finds the first underscore
i = InStr(i + 1, cel.Value, &quot;_&quot;) 'Finds the second underscore
i = InStr(i + 1, cel.Value, &quot;_&quot;) 'Finds the third underscore
If i &gt; 0 Then
 fileName = &quot;C:\&quot; &amp; Left(cel.Value, i - 1) &amp; &quot;.txt&quot;
 'fileName = &quot;X:\VBA\Sample '16\&quot; &amp; Left(cel.Value, i - 1) &amp; &quot;.txt&quot;
 sText = Replace(Mid(cel.Value, i + 1), &quot;_&quot;, &quot;,&quot;)
 Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
 Set oFile = fso.CreateTextFile(fileName)
 oFile.WriteLine sText
 oFile.Close
 Set fso = Nothing
 Set oFile = Nothing
End If
End Sub
</code></pre>
</div>

<div>
We are soooo close. &nbsp;Just one last thing. &nbsp;I had to change the underscore to &quot;B&quot;. &nbsp;Everything works, but I need the file name to be: 
 
1291039_4_1 and not 
 
1291039B4B1 
 
Here's the code: 
 
Sub BarcodeToTextFile() 
Dim cel As Range 
Dim fileName As String, sText As String 
Dim i As Long 
Dim iI As Long 
Dim fso As Object, oFile As Object 
Dim nm As Name 
'1291039_4_1_532_449_23 
'I need the file to be called &quot;1291039_4_1.txt&quot; and the contents of the file to be &quot;532,449,23&quot;. 
&nbsp; &nbsp; 'Barcode is scanned into this cell. No OCR is performed--your scanner must put a value like 123456_56_23 into this cell. 
Set cel = Range(&quot;A1&quot;) 
i = InStr(1, cel.Value, &quot;B&quot;) &nbsp; &nbsp; &nbsp; &nbsp;'Finds the first underscore 
i = InStr(i + 1, cel.Value, &quot;B&quot;) &nbsp; &nbsp;'Finds the second underscore 
i = InStr(i + 1, cel.Value, &quot;B&quot;) &nbsp; &nbsp;'Finds the third underscore 
 
If i &gt;&nbsp;0 Then 
&nbsp; &nbsp; fileName = &quot;H:\Projects\Labels\Ohio\Test txt files\&quot; &amp;&nbsp;Left(cel.Value, i - 1) &amp;&nbsp;&quot;.txt&quot; 
&nbsp; &nbsp; 'fileName = &quot;X:\VBA\Sample '16\&quot; &amp;&nbsp;Left(cel.Value, i - 1) &amp;&nbsp;&quot;.txt&quot; 
&nbsp; &nbsp; sText = Replace(Mid(cel.Value, i + 1), &quot;B&quot;, &quot;,&quot;) 
&nbsp; &nbsp; Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;) 
&nbsp; &nbsp; Set oFile = fso.CreateTextFile(fileName) 
&nbsp; &nbsp; oFile.WriteLine sText 
&nbsp; &nbsp; oFile.Close 
&nbsp; &nbsp; Set fso = Nothing 
&nbsp; &nbsp; Set oFile = Nothing 
End If 
End Sub
</div>

<div>
PERFECT!!! &nbsp;It's working exactly like I want. &nbsp;Thank you so much! &nbsp;You've been very patient with me. &nbsp;Have a great day!
</div>

<div>
<div class="content wysiwyg-content">
Hello, 
 
What I'm trying to do is scan a barcode, and create a very simple text file. &nbsp;I thought Excel would be the right place to do this this. 
So I will scan the barcode into a cell in Excel. &nbsp;The barcode would have something like &quot;123456_56_23&quot;. &nbsp;I want the name of the text file to be C:\123456.txt, and the contents of the text file to be &quot;56_23&quot;. 
 
Can someone provide an example of how to do this within Excel? &nbsp; 
 
Thank you, 
Joel
</div>
</div>

Hello,

What I'm trying to do is scan a barcode, and create a very simple text file.  I thought Excel would be the right place to do this this.
So I will scan the barcode into a cell in Excel.  The barcode would have something like "123456_56_23".  I want the name of the text file to be C:\123456.txt, and the contents of the text file to be "56_23".

Can someone provide an example of how to do this within Excel?  

Thank you,
Joel

MS Excel script

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.