Как добавлять записи в файл, делая проверку на пустые записи - VB

k = 0 'Ñ÷åò÷èê ГЇГіcòûõ Г§Г*ГЇГЁГ±ГҐГ©
For x = 0 To 7
    If Text1(x).Text = "" Then
        Shape1(x).Visible = True
        k = k + 1
    End If
Next x
 
For y = 0 To 4
    If Combo1(y).Text = "" Then
        Shape2(y).Visible = True
        k = k + 1
    Else
        k = 0
    End If
Next y
 
If k > 0 Then
    Label15.Visible = True
Else
    Label15.Visible = False
    For x = 0 To 7
        Shape1(x).Visible = False
    Next x
    For y = 0 To 4
        Shape2(y).Visible = False
    Next y
    db.mdl = Text1(0).Text
    db.pr = Text1(1).Text
    db.os = Combo1(0).Text
    db.cpu = Val(Text1(2).Text)
    db.ram = Val(Combo1(1).Text)
    db.mmr = Val(Text1(3).Text)
    db.bat = Val(Text1(4).Text)
    db.scr = Combo1(2).Text
    db.diag = Val(Text1(5).Text)
    db.rslw = Val(Text1(6).Text)
    db.rslh = Val(Text1(7).Text)
    db.bt = Combo1(3).Text
    db.wifi = Combo1(4).Text
    n = n + 1
    Put #1, n, db
End If