Trying to read from two files at once

[kebbs]

Hello VB community,

Ok, I am at the point of hiring someone to do this for me. Sadly, I am a broke student. Here is my problem:

I am reading from one file (bobo.txt). That file contains this:

...
L0G1W0,35200824,0.00202164486,0
L0H1G0,35190765,0.11641453567,0
L0H1G0,35190766,0.06262106163,0
L0H1G0,35190766,0.09166227313,0
...

Do you see L0H1G0? It occurs three times, but the last two occurrences belong to the same ID (35190766). I basically have to eliminate that and only have one occurrence of L0H1G0 per 35190766.

This is the code I came up with. It is so short yet does not do what is has to!

The output is simply:

,"
",,"
",,"
",,"
",,"

Can anyone please let me know what could ne wrong with this code? I am really losing it...

thank you so much,

Sashka

Dim strText(3) As Variant, strTextInternal(3) As Variant, strTextWrite(3) As Variant, strTextTemp(3) As Variant
Dim strTextTemp2(3) As Variant
Dim strInput As Variant
Dim strInput2 As Variant
Dim i As Integer, j As Integer, k As Integer
 
'Creating FreeFiles
Dim IPF As Integer
Dim OPF As Integer
Dim OPF2 As Integer
 
OPF = FreeFile()
Open "c:\data\secondfile.txt" For Output As #OPF
IPF = FreeFile()
Open "c:\data\bobo.txt" For Input As #IPF
IPF2 = FreeFile()
Open "c:\data\bobo2.txt" For Input As #IPF2 'bobo2.txt is same as bobo.txt.
 
Do While Not EOF(IPF)
    Input #IPF, strInput
    strTextTemp(3) = Split(strInput, ",")
    strText(0) = strTextTemp(0)
    strText(1) = strTextTemp(1)
    
    Do While Not EOF(IPF2)
        Input #IPF2, strInput2
        strTextTemp2(3) = Split(strInput2, ",")
        strTextInternal(0) = strTextTemp2(0)
        strTextInternal(1) = strTextTemp2(1)
        
        If strText(0) = strTextInternal(0) And strText(1) = strTextInternal(1) Then
            strTextWrite(0) = strTextInternal(0)
        End If
    Loop
        Write #OPF, strTextWrite(0); vbNewLine;
Loop
 
Close #IPF
Close #OPF
Close #OPF2
 
End Sub