Date time display

Hi

I got the solution for this,

For Current date 

 Dim sCurrentDate As String

 sCurrentDate = DateTime.Now.ToString("ddd") & vbCrLf & DateTime.Now.ToString("M/d") & vbCrLf & "(Today)"

For One day Before 

 Dim sPreviousDate As String

        sPreviousDate = DateTime.Now.AddDays(-1).ToString("ddd") & vbCrLf & DateTime.Now.AddDays(-1).ToString("M/d") & vbCrLf & "(Yesterday)"

For DaybeforeYesterday

  Dim sPreviousDate As String

        sPreviousDate = DateTime.Now.AddDays(-2).ToString("ddd") & vbCrLf & DateTime.Now.AddDays(-2).ToString("M/d")