I really can't see that you would get an error message, but it would add an empty string to the ListBox.
VB Code:
  1. StrVar = InputBox("Add A Base Word To The List", "Add Word To list")

  2. If Len(StrVar) > 0 Then

  3.     lstRoot.AddItem StrVar

  4. End If