vValue = rgData.Cells(lLi, lCol).Value
'lv.ListItems(lLi).ListSubItems.Add , , rgData.Cells(lLi, lCol).Value
If IsNumeric(vValue) Then
If vValue <> Int(vValue) Then
lv.ListItems(lLi).ListSubItems.Add , , Format(rgData.Cells(lLi, lCol).Value, "##,##0.00")
Else: lv.ListItems(lLi).ListSubItems.Add , , Format(rgData.Cells(lLi, lCol).Value, "##,##0")
End If
Else: lv.ListItems(lLi).ListSubItems.Add , , rgData.Cells(lLi, lCol).Value
End If