Your JSON is probably not properly formatted, try this:
Dim o As JObject = JObject.Parse(
"{'forecast':{'2019-10-14':{'date':'2019-10-14','date_epoch':1570838400, 'mintemp':29,'maxtemp':36,'avgtemp':32,'totalsnow':0,'sunhour':8.7,'uv_index':8}}}")
Dim fc As String = o("forecast")("2019-10-12")("mintemp").ToString()
Console.WriteLine(fc)
If you want to use the current date:
Dim fc As String = o("forecast")(DateTime.Now.ToString("yyyy-MM-dd"))("mintemp").ToString()