Hello, I am new to VBA Chart. Can anyone help me to see how to add data label callouts ( show as "[Value in X axis, Value in y axis]" in following NewSeries (MyNewSrs for my case) below? thank you!

Dim myChtObj As ChartObject
Set myChtObj = mysht.ChartObjects.Add(Left:=100, Width:=500, Top:=25, Height:=200)
Set MyNewSrs = myChtObj.Chart.SeriesCollection.NewSeries
With MyNewSrs
.Name = "Test1"
.DataLabels.Position = xlLabelPositionAbove
.Values = myArray1
.XValues = myArray2
.ChartType = xlXYScatter
.AxisGroup = xlPrimary
.MarkerStyle = xlMarkerStyleSquare
.MarkerSize = 5
.MarkerBackgroundColor = vbRed
End With
Set MyNewSrs = Nothing