Textbox input to Listbox problem

[Jerome W. Norgren]

Hello,

I've a problem that I'm not sure how to solve, ie... A dialogbox that Inputs textnames into a listbox, the problem is that if I click on the "OK" button before inputing any text I get a blank line in the listbox. Which I don't want to happen, here's the code I'm using for the textbox and the "OK" button any suggestions on what's wrong? Oh, yes! I should mention that the listbox is check box style.

Private Sub cmdAdd_Click() ' OK Button.
Form2.lstClient.AddItem txtName.Text ' Add to List.
txtName.Text = "" ' Clear text box.
txtName.SetFocus
'Hide and Unload the Dialogbox
Dialog3.Hide
Unload Dialog3
End Sub

Private Sub txtName_KeyPress(KeyAscii As Integer)
' Enable the Add button if there is at least one
' character in the name.
cmdAdd.Enabled = (Len(txtName.Text) > 0)
' If Enter is pressed nullify the keystroke
' and Tab to the OK button and press enter
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{TAB}{ENTER}"
End If
End Sub

Thanks in advance!

[HeSaidJoe]

Private Sub cmdAdd_Click() ' OK Button. 

  if textname.text = "" then 
      msgbox "Sorry, No Data"
      textname.setfocus
      exit sub
  end if

Form2.lstClient.AddItem txtName.Text ' Add to List. 
txtName.Text = "" ' Clear text box. 
txtName.SetFocus 
'Hide and Unload the Dialogbox 
Dialog3.Hide 
Unload Dialog3 
'bla bla

[Jerome W. Norgren]

HeSaidJoe,

Thanks, with a few minor changes it works like a charm!
I like the message box idea better than just closing the dialog box, which is what I had been thinking of.
If I knew how to give you three thumbs up with the icons for that one I would!

Thanks again!