TEST

Temp = if (apiJSONResponse is Nothing, Nothing— CDbl(apiJSONResponse("current")("temp").ToString))

Humidity = if (apiJSONResponse is Nothing, Nothing, CDbl(apiJSONResponse("current")("humidity").ToString))

Visibility = if (apiJSONResponse is Nothing, Nothing, CDbl(apiJSONResponse("current")("visibility").ToString)) 

Windspeed = If(apiJSONResponse Is Nothing, Nothing, CDbl(apiJSONResponse("current")("wind_speed").ToString)) Weather = if(apiJSONResponse is Nothing, "Err", apiJSONResponse("current")("weather")(0)("description").ToString)