При записи в файл и при чтении выводится не вся информация

Dim p As bd 'ðàñõîä
Dim z As bd 'íà÷èñëåíî
Dim q As bd 'çàäîëæåííîñòü
Dim g As bd 'îïëà÷åíî
Dim dat(30) As MyData
Dim n As Integer
Private Sub CommandButton1_Click()
n = TextBox13.Text
dat(n).Surnames = TextBox1.Text
dat(n).Names = TextBox2.Text
dat(n).Patronymic = TextBox3.Text
dat(n).Number_Of_Home = TextBox4.Text
dat(n).NachalnyePokazaniya = TextBox5.Text
dat(n).KonechnyePokazaniya = TextBox6.Text
dat(n).Summa_k_oplate = TextBox8.Text
 
dat(n).Polnyi_Tarif = TextBox10.Text
End Sub
 
Private Sub CommandButton2_Click()
 
Num = FreeFile
 
   Open "D:\VB\Ðàñ÷åò çà ýëåêòðîåíåðãèþ.dat" For Random As Num Len = Len(dat(1))
 For n = 1 To 30
  Get #Num, n, dat(n)
Next n
 
Close #Num
End Sub
Private Sub CommandButton3_Click()
 
Num = FreeFile
Open "D:\VB\Ðàñ÷åò çà ýëåêòðîåíåðãèþ.dat" For Random As Num Len = Len(dat(1))
For n = 1 To 30
Put #Num, n, dat(n)
Next n
Close #Num
 
End Sub
 
 
Private Sub CommandButton4_Click()
If Not IsNumeric(TextBox13.Text) Then
MsgBox ("Îøèáêà ôîðìàòà")
GoTo errorprog
End If
n = TextBox13.Text
TextBox1.Text = dat(n).Surnames
        TextBox2.Text = dat(n).Names
        TextBox3.Text = dat(n).Patronymic
        TextBox4.Text = dat(n).Number_Of_Home
        TextBox5.Text = dat(n).NachalnyePokazaniya
        TextBox6.Text = dat(n).KonechnyePokazaniya
        TextBox8.Text = dat(n).Summa_k_oplate
        TextBox10.Text = dat(n).Polnyi_Tarif
     
 
errorprog:
End Sub
 
Private Sub CommandButton5_Click()
If Not IsNumeric(TextBox13.Text) Then
MsgBox ("Îøèáêà ôîðìàòà")
GoTo errorprog
End If
If Not IsNumeric(TextBox4.Text) Then
MsgBox ("Îøèáêà ôîðìàòà")
GoTo errorprog
End If
If Not IsNumeric(TextBox5.Text) Then
MsgBox ("Îøèáêà ôîðìàòà")
GoTo errorprog
End If
If Not IsNumeric(TextBox6.Text) Then
MsgBox ("Îøèáêà ôîðìàòà")
GoTo errorprog
End If
If Not IsNumeric(TextBox8.Text) Then
MsgBox ("Îøèáêà ôîðìàòà")
GoTo errorprog
End If
If Not IsNumeric(TextBox10.Text) Then
MsgBox ("Îøèáêà ôîðìàòà")
GoTo errorprog
End If
Set p = New bd
p.NachalnyePokazaniya = TextBox5.Text
p.KonechnyePokazaniya = TextBox6.Text
TextBox7.Text = p.Rashod
Set z = New bd
z.NachalnyePokazaniya = TextBox5.Text
z.KonechnyePokazaniya = TextBox6.Text
z.Polnyi_Tarif = TextBox10.Text
TextBox9.Text = z.nachisleno
Set g = New bd
g.NachalnyePokazaniya = TextBox5.Text
g.KonechnyePokazaniya = TextBox6.Text
g.Polnyi_Tarif = TextBox10.Text
g.Summa_k_oplate = TextBox8.Text
TextBox12.Text = g.Oplacheno
Set q = New bd
q.NachalnyePokazaniya = TextBox5.Text
q.KonechnyePokazaniya = TextBox6.Text
q.Polnyi_Tarif = TextBox10.Text
q.Summa_k_oplate = TextBox8.Text
TextBox11.Text = q.zadolzhennost
errorprog:
End Sub
 
Private Sub UserForm_Click()
 
End Sub
код модуля.
Public Type MyData
 Surnames As String * 30 ' ôàìèëèè
 Names As String * 30 ' èìåíà
 Patronymic As String * 30 'îò÷åñòâà
 Number_Of_Home As String 'íîìåð äîìà
 NachalnyePokazaniya As String 'íà÷àëüíûå ïîêàçàíèÿ
 KonechnyePokazaniya As String 'êîíå÷íûå ïîêàçàíèÿ
 Rashod(30) As String 'ðàñõîä
 Polnyi_Tarif As String 'ïîëíûé òàðèô
 nachisleno As String 'íà÷èñëåíî
Summa_k_oplate As String 'ñóììà ê îïëàòå
 Oplacheno As String  'îïëà÷åíî
 zadolzhennost As String
 
End Type
код класса модуля.
Dim x, y, a, b As Integer
Public Property Let NachalnyePokazaniya(ByVal NewNachalnyePokazaniya As Integer)
If Not IsNumeric(Num) Then
MsgBox ("Îøèáêà ôîðìàòà")
GoTo errorprog
End If
x = NewNachalnyePokazaniya
errorprog:
End Property
 
Public Property Let KonechnyePokazaniya(ByVal NewKonechnyePokazaniya As Integer)
If Not IsNumeric(Num) Then
MsgBox ("Îøèáêà ôîðìàòà")
GoTo errorprog
End If
y = NewKonechnyePokazaniya
errorprog:
End Property
Public Property Let Polnyi_Tarif(ByVal NewPolnyi_Tarif As Integer)
If Not IsNumeric(Num) Then
MsgBox ("Îøèáêà ôîðìàòà")
GoTo errorprog
End If
a = NewPolnyi_Tarif
errorprog:
End Property
Public Property Let Summa_k_oplate(ByVal NewSumma_k_oplate As Integer)
If Not IsNumeric(Num) Then
MsgBox ("Îøèáêà ôîðìàòà")
GoTo errorprog
End If
b = NewSumma_k_oplate
errorprog:
End Property
Public Property Get Rashod() As Integer
Rashod = y - x
End Property
Public Property Get nachisleno() As Integer
nachisleno = (y - x) * a
End Property
Public Property Get Oplacheno() As Integer
Oplacheno = b / ((y - x) * a) * 100
End Property
Public Property Get zadolzhennost() As Integer
zadolzhennost = (y - x) * a - b
End Property