Dim strMassYwDel As String
        Dim strMassXwDel As String
        Dim strMassY() As String
        Dim strMassX() As String
        strMassYwDel = "1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	29	30	31	32	33	34	35	36	37	38	39	40	41	42	43	44	45	46	47	48	49	50	51	52"
        strMassXwDel = "A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	A1	B1	C1	D1	E1	F1	G1	H1	I1	J1	K1	L1	M1	N1	O1	P1	Q1	R1	S1	T1	U1	V1	W1	X1	Y1	Z1"
        strMassY = Split(strMassYwDel, vbTab)
        strMassX = Split(strMassXwDel, vbTab)
        For i = 0 To 7 '' UBound(strMassX)
            Chart3.Series.Item(0).Points.AddXY(strMassX(i), strMassY(i)) '' установка точек диаграммы 
            Chart3.Series.Item(0).Points.Item(i).Label = strMassY(i) '' подпись значений Y сверху точек диаграммы
        Next i