Дан массив: Public Mas_klass(1 To All_vagon) As String
Public Const All_vagon = 3
Необходимо добавить к поезду новые вагоны разных классов (купейный или плацкартный). Добавление производится в конец вагона. Максимальное количество вагонов в поезде-18.
И нужно отобразить список вагонов в ListBox'е(List_VK)

Private Sub Command1_Click()
Dim i, j As Integer
If All_vagon < 18 Then
All_vagon = All_vagon + 1
Sostav_v(All_vagon) = All_vagon
Mas_klass(All_vagon) = Trim(Cmb_klass.Text)
Add_Vagon
Else
MsgBox "Ошибка!"
End If
End Sub

Private Sub Add_Vagon()
Dim i As Integer
Dim ii As Integer
For i = 1 To All_vagon
ii = Sostav_v(i)
s = Trim(Str(ii)) + "-" + Left(Mas_klass(ii), 11)
List_VK.AddItem "Вагон №" + s
Cmb_V1.AddItem Trim(Str(ii))
Next i
End Sub

Никак не хочет работать, помогите, плз