fetching values from a column and displaying it in a msgbox in VBA

Team
I want to fetch text written in 5 rows of a column and display it in a msgbox using VBA
Can anyone tell me the code ?
if A1=5
A2=6
A3= 7
A4= 5
so on
i want to write a macro which displays a msgbox showing below text
"The values written in column are
1) 5
2) 6
3) 7
4) 5