A = VectorPlot[{1,-0.0202*(y - 23)},{x,0,100},{y,0,80}, VectorScale->0.05]

B = Plot[23 + 52E^(-0.0202*x), {x, 0, 100}]

Show[A,B]