You can find the first and last date using this code
Dim dt As DateTime = DateTime.Now
TextBox1.Text = dt.Date
TextBox2.Text = Format(dt.AddDays(-(dt.Day - 1)), "MM/dd/yyyy")
Dim LastdayDate As Date = dt.AddMonths(1)
TextBox3.Text = Format(LastdayDate.AddDays(-(LastdayDate.Day)), "MM/dd/yyyy")
try it