Dim Header As String With Me.lstUsers.Nodes .Add ("Test") End With