Display day for 1st of every month

Hi Ganesh,

something like this?

Sub Main

  Dim myDate as String

Dim MonArray(12,2) as String

MonArray(1,1) = "Jan"

MonArray(1,2) = "January"

MonArray(2,1) = "Feb"

MonArray(2,2) = "February"

MonArray(3,1) = "Mar"

MonArray(3,2) = "March"

MonArray(4,1) = "Apr"

MonArray(4,2) = "April"

MonArray(5,1) = "May"

MonArray(5,2) = "May"

MonArray(6,1) = "Jun"

MonArray(6,2) = "June"

MonArray(7,1) = "Jul"

MonArray(7,2) = "July"

MonArray(8,1) = "Aug"

MonArray(8,2) = "August"

MonArray(9,1) = "Sept"

MonArray(9,2) = "September"

MonArray(10,1) = "Oct"

MonArray(10,2) = "October"

MonArray(11,1) = "Nov"

MonArray(11,2) = "November"

MonArray(12,1) = "Dec"

MonArray(12,2) = "December"

  For i = 1 to 12

  If Len(Cstr(i)) =1 then

j = "0" & i

  Else

      j = i

  End if

  myDate = j & "/01/ "& Year(Now) & Chr$(13) & MonArray(i,1)  & " 1st  "& Year(Now) & Chr$(13) & MonArray(i,2) & " 1st  "& Year(Now)

  Msgbox myDate

  Next i

End Sub

Thanks