....
If Now.AddDays(-42) > LastLogontime Then
        Userliste.Add(New Userinfo(sUsername, LastLogontime))
End If
...
 
Public Class Userinfo
        Dim _Name As String
        Dim _Datum As DateTime
        Sub New(ByVal Name As String, ByVal Datum As String)
            Me.Name = Name
            Me.Datum = Datum
        End Sub
        Public Property Name() As String
            Get
                Return _Name
            End Get
            Set(ByVal value As String)
                _Name = value
            End Set
        End Property
        Public Property Datum() As String
            Get
                Return _Datum
            End Get
            Set(ByVal value As String)
                _Datum = value
            End Set
        End Property
    End Class