When I put breakpoints and run the code then txt in the highlighted line below gives me 1,A2,B3,C4,D5,E. But my notepad stores data as below:
1,A
2,B
3,C
4,D
5,E
Dim fn As String, ff As Integer, txt As String
fn = "C:\Users\A955724\Desktop\Test.txt" '< --- .txt file path
txt = Space(FileLen(fn))
ff = FreeFile
Open fn For Binary As #ff
Get #ff, , txt
Close #ff
Dim myArray() As String
Dim i As Integer
myArray = Split(txt, vbCrLf)
'Use .List method to populate listbox.
With ListBox1
.ColumnCount = 2
For i = 0 To UBound(myArray)
.AddItem
.List(i, 0) = Split(myArray(i), ",")(0)
.List(i, 1) = Split(myArray(i), ",")(1)
Next i
.ColumnWidths = "0pt;" & .Width - 4
End With