[RESOLVED] Parsing text file

[tiguy]

Sorry

I've had alot going on and have not had a chance to try some of these.

Give me a few

[tiguy]

Hey Thanks everyone for helping. Lots to learn!

This is what I'm going with

Private Sub Command4_Click()
'Option Explicit
 
Dim intFF As Integer
Dim lngCount As Long, lngIdx As Long
Dim strArr() As String
 
On Error GoTo Err_Handler
 
    intFF = FreeFile
 
    'Load the TextFile into an Array
    Open App.Path & "\" & Text1.Text For Input As #intFF
    strArr() = Split(Input(LOF(intFF), 1), vbCrLf)
    Close #intFF
 
    'Now, pass tru each Array element and look for a match
    lngCount = UBound(strArr) - 1
 
    For lngIdx = 0 To lngCount
        If InStr(1, strArr(lngIdx), "F", vbTextCompare) <> 0 And Left$(strArr(lngIdx), 1) <> "(" Then
            If IsNumeric(Trim$(Right$(strArr(lngIdx), Len(strArr(lngIdx)) - InStrRev(strArr(lngIdx), "F", -1, vbTextCompare)))) Then
 
                MsgBox Trim$(Right$(strArr(lngIdx), Len(strArr(lngIdx)) - InStrRev(strArr(lngIdx), "F", 1, vbTextCompare)))
 
                End If
        End If
    Next
 
Exit Sub
 
Err_Handler:
    MsgBox "Number: " & Err.Number & vbCrLf & _
    "Description: " & Err.Description, vbOKOnly + vbInformation, "Error!"
 
End Sub