VBA split 관련 문의드립니다.

Private Sub ListAdd_Click()
 
    Dim InputText As String
    Dim splitText As Variant
    Dim s As Variant
 
    InputText = InputBox("추가할 단어를 입력하세요", "단어 추가")
 
    If InStr(InputText, ",") Then
        splitText = Split(InputText, ",")
        For Each s In splitText
            If s <> "" And Button1.Value = True Then
                ListBox1.AddItem s
            End If
        Next
    Else         '<--- 추가
        ListBox1.AddItem InputText       '<--- 추가
    End If
 
End Sub