<div>
I have to increase the points with my last five points...
</div>

<div>
Private Sub Form_Load() 
&nbsp; &nbsp; List1.AddItem &quot;Item 1&quot; 
&nbsp; &nbsp; List1.AddItem &quot;Item 2&quot; 
&nbsp; &nbsp; List1.AddItem &quot;Item 3&quot; 
End Sub 
 
Private Sub Command1_Click() 
&nbsp; &nbsp; Dim s As String 
&nbsp; &nbsp; Dim i As Integer 
&nbsp; &nbsp; 
&nbsp; &nbsp; For i = 0 To List1.ListCount 
&nbsp; &nbsp; &nbsp; &nbsp; s = s + List1.List(i) + vbCrLf 
&nbsp; &nbsp; Next 
&nbsp; &nbsp; 
&nbsp; &nbsp; MsgBox s 
End Sub 
 
Form has List1 ListBox abd Command1 button.
</div>

<div>
Here is an example of how to store the items in a collection. &nbsp;Create a project and add one textbox, one, commandbutton, and two listboxes. &nbsp;Each an entry is in the textbox and enter is pressed it will be added to the first listbox and the collection. &nbsp;When the commandbutton is pressed, the second listbox will be cleared and then it will be populated with the contents of the collection. 
 
Dim listItems As Collection 
 
Private Sub Command1_Click() 
&nbsp; &nbsp; Dim item As Variant 
&nbsp; &nbsp; 
&nbsp; &nbsp; List2.Clear 
&nbsp; &nbsp; For Each item In listItems 
&nbsp; &nbsp; &nbsp; &nbsp; List2.AddItem item 
&nbsp; &nbsp; Next item 
End Sub 
 
Private Sub Form_Load() 
&nbsp; &nbsp; Text1.Text = &quot;&quot; 
&nbsp; &nbsp; Set listItems = New Collection 
&nbsp; &nbsp; Command1.Caption = &quot;Enumerate listItems&quot; 
End Sub 
 
Private Sub Text1_KeyPress(KeyAscii As Integer) 
&nbsp; &nbsp; If KeyAscii = 13 Then 
&nbsp; &nbsp; &nbsp; &nbsp; If Len(Trim(Text1.Text)) &gt;&nbsp;0 Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; List1.AddItem Text1.Text 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; listItems.Add Text1.Text 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Text1.Text = &quot;&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; KeyAscii = 0 
&nbsp; &nbsp; &nbsp; &nbsp; End If 
&nbsp; &nbsp; End If 
End Sub 

</div>

<div>
I have to give the points to vinnyd79 because the example he gave is just what I need. I would split them but I think there is no idea to split 45 points and don't have more to give. 
 
Thanks to you all! 

</div>

<div>
Hello Again! 
I forgot to ask about this in my original question. I'm using this code to remove lines from the ListBox. Is it possible to remove the same line from the variable I'm using in the example vinnyd79 wrote. I would like to have the variable &quot;updated&quot; if a line is removed from ListBox... 
 
Private Sub displacement_remove_Click() 
&nbsp; &nbsp; Dim ind As Integer 
&nbsp; &nbsp; 
&nbsp; &nbsp; ind = forced_displacement.ListIndex &nbsp; &nbsp; &nbsp;'take listindex 
&nbsp; &nbsp; If ind &gt;= 0 Then &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'check that line is selected 
&nbsp; &nbsp; &nbsp; &nbsp; forced_displacement.RemoveItem ind &nbsp; 'remove line 
&nbsp; &nbsp; Else 
&nbsp; &nbsp; &nbsp; &nbsp; Beep 
&nbsp; &nbsp; End If 
 
End Sub
</div>

<div>
I already found a solution 
 
dim storevar as string 
sub getvar() 
Dim i As Integer 
Dim ItmList As String 
For i = 0 To List1.ListCount - 1 
If ItmList &lt;&gt;&nbsp;&quot;&quot; Then 
ItmList = ItmList &amp;&nbsp;vbCrLf &amp;&nbsp;List1.List(i) 
Else 
ItmList = List1.List(i) 
End If 
Next i 
Storevar=ItmList 
end sub 

</div>

<div>
<div class="content wysiwyg-content">
Hello! 
I'm wondering how I can get the contents of a ListBox to a variable? There can be several lines in the listbox. It would also be ok to have every line stored in different variables. The lines are put into the ListBox with a TextBox and a button. When the button is pushed the contents of the TextBox is moved to the Listbox. Every time the button is pushed a new line is added.
</div>
</div>

Hello!
I'm wondering how I can get the contents of a ListBox to a variable? There can be several lines in the listbox. It would also be ok to have every line stored in different variables. The lines are put into the ListBox with a TextBox and a button. When the button is pushed the contents of the TextBox is moved to the Listbox. Every time the button is pushed a new line is added.

Different lines from a ListBox to different variables

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.