Устранить ошибку "sub or function not defined"

Private Sub CommandButton1_Click()
Dim z As String
Dim n As Integer
z = "d:\texnika.txt"
Open z For Input As #1
n = 0
While Not EOF(1)
        With a(n)
     Input #1, .vyd, .rik, .cina, .kolir, .kilkist
     n = n + 1
Wend
End Sub

Private Sub CommandButton1_Click()
Dim z As String
Dim a(2) As Single
Dim n As Integer
z = "d:\texnika.txt"
Open z For Input As #1
n = 0
While Not EOF(1)
        With a(n)
     Input #1, .vyd, .rik, .cina, .kolir, .kilkist
     n = n + 1
Wend
End Sub
 
Private Sub CommonButton2_Click()
Dim i As Integer, z As String
For i = 1 To n
With a(i)
z = .vyd + Chr(9) + Str(.rik) + Chr(9) + Str(.cina) + Chr(9) + Str(.kolir) + Chr(9) + Str(.kilkist)
ListBox1.AddItem z
End Sub
 
Private Sub CommandButton3_Click()
Dim i As Integer, z As String, color As String
color = ListBox2.List
For i = 1 To n
    With a(i)
        If Trim(.color) = color Then
        z = .vyd + Chr(9) + Str(.rik) + Chr(9) + Str(.cina) + Chr(9) + Str(.kilkist)
        TextBox1.Text = z
        End If
    End With
Nexti
End Sub

public type t_A
  vyd as integer
  rik as integer
  cina as integer
  kolir as integer
  kilkist as integer
end type

dim a()as t_A

Private Type a
vyd As String * 10
cina As Integer
kolir As String * 10
kilkist As Integer
End Type
Dim tech(2) As a
Dim n As Integer
Private Sub Command1_Click()
Dim z As String
Dim a(2) As Single
z = "c:\texnika.txt"
Open z For Input As #1
For i = 1 To 2
Input #1, tech(i).vyd, tech(i).cina, tech(i).kolir, tech(i).kilkist
n = n + 1
Next
Close #1
End Sub
 
Private Sub Command2_Click()
Dim i As Integer
For i = 1 To n
z = tech(i).vyd + Chr(9) + Str(tech(i).cina) + Chr(9) + tech(i).kolir + Chr(9) + Str(tech(i).kilkist)
List1.AddItem z
Next i
End Sub
 
Private Sub Command3_Click()
Dim color As String
color = Text1.Text
For i = 1 To n
If Trim(tech(i).kolir) = color Then
    z = tech(i).vyd + Chr(9) + Str(tech(i).cina)
List2.AddItem z
End If
Next i
End Sub

Open z For Input As #1
  Do Until EOF(1)
     With tech(i)
        Input #1, .vyd, .cina, .kolir, .kilkist
     End With
     n = n + 1
   Loop
Close #1