Code:
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