Just wondering why this consistently picks the same values, and how i can fix it:

VB Code:
  1. cjb = Val(Left(ListView1.ListItems(pppp).ListSubItems(2).Text, Len(ListView1.ListItems(pppp).ListSubItems(2).Text) - 3))

  2.             

  3.             If cjb > 400 Then 

  4. ListView1.ListItems(pppp).ListSubItems(4).Text = "Bad"

  5.             

  6.             Elseif cjb > 300 < 400 Then ListView1.ListItems(pppp).ListSubItems(4).Text = "Laggy"                    '< 400

  7.             

  8.             Elseif cjb > 200 < 300 Then ListView1.ListItems(pppp).ListSubItems(4).Text = "Decent" '< 300

  9.             

  10.             Elseif cjb > 100 < 200 Then ListView1.ListItems(pppp).ListSubItems(4).text = "Good"

  11.             

  12.            Elseif cjb < 100 Then ListView1.ListItems(pppp).ListSubItems(4).Text = "Great"