Public Class clUserValues
    Private _Attribut As String
    Private _Wert As String
 
    Public Sub New(ByVal Attribut As String, ByVal Wert As String)
        Me.Attribut = Attribut
        Me.Wert = Wert
    End Sub
 
    Public Property Attribut() As String
        Get
            Return _Attribut
        End Get
        Set(ByVal value As String)
            _Attribut = value
        End Set
    End Property
 
    Public Property Wert() As String
        Get
            Return _Wert
        End Get
        Set(ByVal value As String)
            _Wert = value
        End Set
    End Property
 
End Class

Dim UserInfos As New List(Of clUserValues)
UserInfos.Add(New clUserValues("Name", Trim(.IsNull(.commRead("Name"), ""))))
UserInfos.Add(New clUserValues("Vorname", Trim(.IsNull(.commRead("Vorname"), _
  ""))))
UserInfos.Add(New clUserValues("ID", Trim(.IsNull(.commRead("ID").ToString, _
""))))