Hi,

I have a form with listbox1, textbox1, texbox2.
I have the following code in textbox2
Prvate sub textbox2_afterupdate()
Commandbutton3-Click

this is the code for cmdbutton3
Private Sub CommandButton3_Click()
msg = " "
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
msg = msg & ListBox1.List(i)
TextBox1.Text = msg
End If
Next i
End Sub

I have figured out how to get the data in the textbox if it is selected but when nothing is selected from the listbox for a particular entry, the next entry jumps in the above empty space, so I want to have the code above saying

If listbox is not selected then Seltext = " ' " so that the ' would go in the space where nothing was selected.

Can anyone help me with what to place in my code to have this done????

Thanks,

Carol

[ This Message was edited by: slimpickens on 2002-04-22 08:49 ]