I change my code to:
For Each lvi As ListViewItem In Me.ListView1.Items
Dim va As String = 89%
If lvi.SubItems(2).Text < va Then
lvi.UseItemStyleForSubItems = False
lvi.SubItems(2).ForeColor = Color.red
End If
Next
However everytime I get 100% the value still change to red :(