Dim ti As Date = Date.Today Dim ts As TimeSpan = #2/25/2016# - ti
If 90 >= ts.Days AndAlso ts.Days > 60 Then MessageBox.Show("123") End If If 60 >= ts.Days AndAlso ts.Days > 30 Then MessageBox.Show("234") End If If 30 >= ts.Days Then MessageBox.Show("345") End If