VB Code:
cjb = Val(Left(ListView1.ListItems(pppp).ListSubItems(2).Text, Len(ListView1.ListItems(pppp).ListSubItems(2).Text) - 3))
If cjb > 400 Then
ListView1.ListItems(pppp).ListSubItems(4).Text = "Bad"
Elseif cjb > 300 < 400 Then ListView1.ListItems(pppp).ListSubItems(4).Text = "Laggy" '< 400
Elseif cjb > 200 < 300 Then ListView1.ListItems(pppp).ListSubItems(4).Text = "Decent" '< 300
Elseif cjb > 100 < 200 Then ListView1.ListItems(pppp).ListSubItems(4).text = "Good"
Elseif cjb < 100 Then ListView1.ListItems(pppp).ListSubItems(4).Text = "Great"