VB6 veri işleme projem

Private Type takip
dizi As String
sbol As String
ybol As String
ek As String
End Type
Dim kayit As takip
Private Sub Command1_Click()
On Error GoTo hata
Select Case Combo1.Text
Case "arka sokaklar"
Combo1.Text = 1
Case "ezel"
Combo1.Text = 2
Case "çukur"
Combo1.Text = 3
End Select
Open "c:\vb6\dizici.dat" For Random As #1
Get #1, Combo1.Text, kayit
Combo1.Text = kayit.dizi
Text2.Text = kayit.sbol
Text3.Text = kayit.ybol
Text4.Text = kayit.ek
Close #1: Exit Sub
hata: MsgBox "Eyi Bak Bakam Yazdıklana!", vbExclamation, "Hata": Close #1
End Sub

Private Sub Command2_Click()
Select Case Combo1.Text
Case "arka sokaklar"
Combo1.Text = 1
Case "ezel"
Combo1.Text = 2
Case "çukur"
Combo1.Text = 3
End Select
Open "c:\vb6\dizici.dat" For Random As #1
On Error GoTo hata
kayit.dizi = Combo1.Text
kayit.sbol = Text2.Text
kayit.ybol = Text3.Text
kayit.ek = Text4.Text
Put #1, kayit.dizi, kayit
Close #1: Exit Sub
hata: MsgBox "Eyi Bak Bakam Yazdıklana!", vbExclamation, "Hata": Close #1
End Sub


Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command4_Click()
End
End Sub


Private Sub Label1_Click()

End Sub

Private Sub Command5_Click()
Combo1.AddItem Text1.Text
End Sub