Почему при вводе данных в поле ListBox отображаются только цифры?

[Андрей3414]

Почему при вводе данных в поле ListBox отображаются только цифры? При вводе текстовых данных отображается "0". Что делать?

Dim tip, imia As Variant

Private Sub CommandButton1_Click()
n = Val(InputBox("", , "n="))
For i = 1 To n
tip = Val(InputBox("", , "n="))
imia = Val(InputBox("", , "n="))
Stoimost = Val(InputBox("", , "n="))
Kolichestvo = Val(InputBox("", , "n="))
Dostavka = Val(InputBox("", , "n="))
Data = Val(InputBox("", , "n="))
ListBox1.AddItem tip
ListBox2.AddItem imia
ListBox3.AddItem Stoimost
ListBox4.AddItem Kolichestvo
ListBox5.AddItem Dostavka
ListBox6.AddItem Data
Next
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
ListBox6.Clear
End Sub

Private Sub CommandButton3_Click()
End
End Sub

[viter.alex]

Потому что используется функция Val, которая преобразует текст в число. Если текст нельзя преобразовать в число, то возвращает ноль.