From textBox To Listbox

[esperanto234]

"HI! im using the following code to fill a listbox from a textbox

Code:
Dim strNMBCY As Long
strNMBCY = Len(UserForm1.txtNMB)

If strNMBCY > 1 Then
UserForm2.ListBox1.AddItem UserForm1.txtNMB
UserForm2.ListBox2.AddItem UserForm1.txtNMB
End If

The problem is that it fills in a strange way Ex:
If I write in the textbox = Phill
It shows in the listbox like this =
P
Ph
Phi
Phil
Phill

Instead of only one word = Phill

[CyberSoftHari]

check the event of the code part? i think it will be in textbox or form, keypress or key up or down events

[esperanto234]

@CyberSoftHari

The event is change, and with the other events is the same thing!! HELP PLEAASEEE

[smartchap]

Since u have placed code in the Change event of txtNMB in UserForm1, as soon as u change any data in txtNMB (either delete a character or add a character) addition of content of txtNMB will take place in ListBox1 & ListBox2 in UserForm2. So I think u can put this code either in other command button or in the LostFocus event of txtNMB. Or u place the code in the KeyPress event of txtNMB with a check that if KeyPress is vbKeyReturn then go to the code like:

Private Sub TxtNMB_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn then
     ......ur code here to add items to ListBoxes
  End If
End Sub
 

[esperanto234]

@smartchap


Thank you very much, I used the initialized event in the other form and it works perfectly.