Venetus:
1.-
Código:
Private Sub Check2_Click()
If Check2.Value = vbChecked Then
Form1.Show
Else
Unload Form1
End If
End Sub
2.- Creo que el problema está en que te sales de la rutina antes de cerrar el archivo, es decir:
Código:
Label12.Caption = cckd6
Exit Sub 'Te sales aquí
Loop
Close #1 'Y nunca ejecutas esta línea
No comprendo para que es tu loop, ya que con la instrucción "Exit Sub", este sólo se ejecuta una vez. Puedes solucionarlo de varias maneras:
->Mueve la instrucción de "Close #1" antes de "Exit Sub".
->También podrías simplemente quitar la línea "Exit Sub"
->O reemplaza el bucle "Do While Not EOF(1)" por una simple condición "If Not EOF(1) then"
Saludos.