Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
          If CheckIsValidUser() = False Then
            Label1.Text = "Your Status is INACTIVE"
        Else
            Label1.Text = "Your Status is ACTIVE"
        End If
    End Sub
 
Private Function CheckIsValidUser() As Boolean
        '
        Dim RegisterDate As Date = Microsoft.VisualBasic.DateAdd(DateInterval.Month, -1, Date.Today).ToString
        Dim ExpiryDate As String = Microsoft.VisualBasic.DateAdd(DateInterval.Month, 1, RegisterDate).ToString
        If ExpiryDate.ToString = Date.Today.ToString Then
            ''Raise your exception
            Return False
        Else
            Return True
        End If
 
 
 
    End Function
 

DateTime validTillDate = registrationDate.AddMonths(1);
        if (DateTime.Compare(DateTime.Now, validTillDate) < 0)
        {
            //Active
        }
        else
        {
            //Inactive
        }