Android Question extract json fields that contain values

Dim parser As JSONParser
parser.Initialize(<text>)
Dim root As List = parser.NextArray
For Each colroot As Map In root
 Dim BIOP1GRADE As String = colroot.Get("BIOP1GRADE")
 Dim GPGRADE As String = colroot.Get("GPGRADE")
 Dim COMPEP1 As String = colroot.Get("COMPEP1")
 Dim FINEARTP3GRADE As String = colroot.Get("FINEARTP3GRADE")
 Dim COMPEP2 As String = colroot.Get("COMPEP2")
 Dim ENTEP1 As String = colroot.Get("ENTEP1")
 Dim GEOEP1 As String = colroot.Get("GEOEP1")
 Dim ENTEP2 As String = colroot.Get("ENTEP2")
 Dim GEOEP3 As String = colroot.Get("GEOEP3")
 Dim TotalPoints As Int = colroot.Get("TotalPoints")
 Dim HISP1GRADE As String = colroot.Get("HISP1GRADE")
 Dim GEOEP2 As String = colroot.Get("GEOEP2")
 Dim WoodPoints As String = colroot.Get("WoodPoints")
 Dim ENGP3GRADE As String = colroot.Get("ENGP3GRADE")
 Dim GPPoints As String = colroot.Get("GPPoints")
 Dim FINEARTP4GRADE As String = colroot.Get("FINEARTP4GRADE")
 Dim HISPoints As String = colroot.Get("HISPoints")
 Dim FINEARTP2GRADE As String = colroot.Get("FINEARTP2GRADE")
 Dim FoodPoints As String = colroot.Get("FoodPoints")
 Dim PhyPoints As String = colroot.Get("PhyPoints")
 Dim FINEARTP5GRADE As String = colroot.Get("FINEARTP5GRADE")
 Dim FINEARTEP3 As String = colroot.Get("FINEARTEP3")
 Dim ECONEP1 As String = colroot.Get("ECONEP1")
 Dim FINEARTEP2 As String = colroot.Get("FINEARTEP2")
 Dim ECONEP2 As String = colroot.Get("ECONEP2")
 Dim FINEARTEP1 As String = colroot.Get("FINEARTEP1")
 Dim SubsidiaryPoints As Int = colroot.Get("SubsidiaryPoints")
 Dim HISEP6 As String = colroot.Get("HISEP6")
 Dim ENTP2GRADE As String = colroot.Get("ENTP2GRADE")
 Dim MATHEP1 As String = colroot.Get("MATHEP1")
 Dim MATHEP2 As String = colroot.Get("MATHEP2")
 Dim BIOP3GRADE As String = colroot.Get("BIOP3GRADE")
 Dim GEOP3GRADE As String = colroot.Get("GEOP3GRADE")
 Dim BIOEP2 As String = colroot.Get("BIOEP2")
 Dim HISP3GRADE As String = colroot.Get("HISP3GRADE")
 Dim BIOEP1 As String = colroot.Get("BIOEP1")
 Dim HISEP1 As String = colroot.Get("HISEP1")
 Dim HISEP3 As String = colroot.Get("HISEP3")
 Dim ENGEP3 As String = colroot.Get("ENGEP3")
 Dim ENGEP1 As String = colroot.Get("ENGEP1")
 Dim ENGEP2 As String = colroot.Get("ENGEP2")
 Dim PHYEP3 As String = colroot.Get("PHYEP3")
 Dim CHEMP1GRADE As String = colroot.Get("CHEMP1GRADE")
 Dim COMP1GRADE As String = colroot.Get("COMP1GRADE")
 Dim PHYEP2 As String = colroot.Get("PHYEP2")
 Dim PHYEP1 As String = colroot.Get("PHYEP1")
 Dim FINEARTP6GRADE As String = colroot.Get("FINEARTP6GRADE")
 Dim GermanPoints As String = colroot.Get("GermanPoints")
 Dim ENGP1GRADE As String = colroot.Get("ENGP1GRADE")
 Dim BioPoints As String = colroot.Get("BioPoints")
 Dim GPEP1 As String = colroot.Get("GPEP1")
 Dim SMATHP1GRADE As String = colroot.Get("SMATHP1GRADE")
 Dim MathsPoints As String = colroot.Get("MathsPoints")
 Dim PHYP2GRADE As String = colroot.Get("PHYP2GRADE")
 Dim GEOP2GRADE As String = colroot.Get("GEOP2GRADE")
 Dim ENTP1GRADE As String = colroot.Get("ENTP1GRADE")
 Dim BIOP2GRADE As String = colroot.Get("BIOP2GRADE")
 Dim DIVP2GRADE As String = colroot.Get("DIVP2GRADE")
 Dim AGRIP2GRADE As String = colroot.Get("AGRIP2GRADE")
 Dim LUGSWAP3GRADE As String = colroot.Get("LUGSWAP3GRADE")
 Dim MATHP2GRADE As String = colroot.Get("MATHP2GRADE")
 Dim ChemPoints As String = colroot.Get("ChemPoints")
 Dim HISP6GRADE As String = colroot.Get("HISP6GRADE")
 Dim Name As String = colroot.Get("Name")
 Dim DIVP3GRADE As String = colroot.Get("DIVP3GRADE")
 Dim ACCOUNT As String = colroot.Get("ACCOUNT")
 Dim ECONP2GRADE As String = colroot.Get("ECONP2GRADE")
 Dim LUGSWAP2GRADE As String = colroot.Get("LUGSWAP2GRADE")
 Dim AGRIEP2 As String = colroot.Get("AGRIEP2")
 Dim TDPoints As String = colroot.Get("TDPoints")
 Dim EnterprPoints As String = colroot.Get("EnterprPoints")
 Dim AGRIEP3 As String = colroot.Get("AGRIEP3")
 Dim DIVP4GRADE As String = colroot.Get("DIVP4GRADE")
 Dim CHEMP2GRADE As String = colroot.Get("CHEMP2GRADE")
 Dim GeogPoints As String = colroot.Get("GeogPoints")
 Dim AGRIEP1 As String = colroot.Get("AGRIEP1")
 Dim DIVP1GRADE As String = colroot.Get("DIVP1GRADE")
 Dim CompPOINTS As String = colroot.Get("CompPOINTS")
 Dim AGRIP3GRADE As String = colroot.Get("AGRIP3GRADE")
 Dim PHYP3GRADE As String = colroot.Get("PHYP3GRADE")
 Dim LUGSWAEP2 As String = colroot.Get("LUGSWAEP2")
 Dim LUGSWAEP3 As String = colroot.Get("LUGSWAEP3")
 Dim MATHP1GRADE As String = colroot.Get("MATHP1GRADE")
 Dim IREPoints As String = colroot.Get("IREPoints")
 Dim LUGSWAEP1 As String = colroot.Get("LUGSWAEP1")
 Dim SMATHEP2 As String = colroot.Get("SMATHEP2")
 Dim EconPoints As String = colroot.Get("EconPoints")
 Dim SMATHEP1 As String = colroot.Get("SMATHEP1")
 Dim BIOEP3 As String = colroot.Get("BIOEP3")
 Dim LugPoints As String = colroot.Get("LugPoints")
 Dim GEOP1GRADE As String = colroot.Get("GEOP1GRADE")
 Dim ArabPoints As String = colroot.Get("ArabPoints")
 Dim PrinciplePoints As Int = colroot.Get("PrinciplePoints")
 Dim FINEARTP1GRADE As String = colroot.Get("FINEARTP1GRADE")
 Dim FINEARTEP6 As String = colroot.Get("FINEARTEP6")
 Dim SubMathPoints As String = colroot.Get("SubMathPoints")
 Dim FINEARTEP5 As String = colroot.Get("FINEARTEP5")
 Dim AGRIP1GRADE As String = colroot.Get("AGRIP1GRADE")
 Dim FINEARTEP4 As String = colroot.Get("FINEARTEP4")
 Dim DIVEP2 As String = colroot.Get("DIVEP2")
 Dim DIVEP3 As String = colroot.Get("DIVEP3")
 Dim DIVEP1 As String = colroot.Get("DIVEP1")
 Dim LitPoints As String = colroot.Get("LitPoints")
 Dim ECONP1GRADE As String = colroot.Get("ECONP1GRADE")
 Dim PHYP1GRADE As String = colroot.Get("PHYP1GRADE")
 Dim DIVEP4 As String = colroot.Get("DIVEP4")
 Dim COMP2GRADE As String = colroot.Get("COMP2GRADE")
 Dim CHEMP3GRADE As String = colroot.Get("CHEMP3GRADE")
 Dim CHEMEP2 As String = colroot.Get("CHEMEP2")
 Dim CHEMEP3 As String = colroot.Get("CHEMEP3")
 Dim artpoints As String = colroot.Get("artpoints")
 Dim CHEMEP1 As String = colroot.Get("CHEMEP1")
 Dim ENGP2GRADE As String = colroot.Get("ENGP2GRADE")
 Dim LUGSWAP1GRADE As String = colroot.Get("LUGSWAP1GRADE")
 Dim SMATHP2GRADE As String = colroot.Get("SMATHP2GRADE")
Next

    Dim parser As JSONParser
    parser.Initialize(jsonString)
    Dim root As List = parser.NextArray
    For Each colroot As Map In root
        Dim dataMap As Map
        dataMap.Initialize
        For Each key As String In colroot.Keys
            If colroot.Get(key) <> Null And colroot.Get(key) <> "" Then
                Dim value As String = colroot.Get(key)
                dataMap.Put(key,value)
            End If
        Next
    Next
log(datamap)

Dim value As String = colroot.Get(key)
  if isnumber(value) then
                dataMap.Put(key,value)
  end if