For j = 0 To 5
str = strID + "-" + CStr(j + 1)
Open App.Path + "\TestData\" & Trim(str) & ".txt" For Input As #1
  max1 = 0
  Do While Not EOF(1)
   Line Input #1, tem1
   
  If Val(tem1) > max1 Then
        max1 = Val(tem1)
    End If
    If j = 0 Then TxtFLeftMaxf.Text = max1
   
    If j = 1 Then Text1.Text = max1
    End If
    If j = 2 Then
    Text4.Text = max1
    End If
    If j = 3 Then
    Text5.Text = max1
    End If
    If j = 4 Then
    TxtFfMaxBalance.Text = max1
    End If
    If j = 5 Then
    TxtBfMaxBalance.Text = max1
    End If
Loop
Close #1
Next j
Close #1