Listbox Problem- Need help !!!!!!!!!!!!!!

[slimpickens]

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