CreaGrafico()
Me.Chart1.Series(0).Points(0).SetValueY(40)

in pratica, prima ricreo il grafico, poi imposto il valore del primo punto