리스트 추가 하는거 만들었는데요

Private Sub Command1_Click()
If Text1.Text Then
List1.AddItem (Text1.Text)
Text1.Text =
End If
End Sub근데 저렇게하니깐 그냥 누를때는 추가가 안되는데,스페이스바 누르고 추가하니깐 추가가되더라구요공백만있을때는 추가가 안되게 할수있는 방법이 없나요?