Private Sub cmd_OK_Click() 
  Dim I 
  Dim F As Integer 
 
  <font color=red>F = FreeFile 
  Open "C:Test.txt" For Output As #F</font>
 
  For I = 0 To 5 
    If chb_1(I).Value = 1 Then pub_Chb(I) = True Else pub_Chb(I) = False 
    If Trim(txt_Waerung(I).Text) = "" And txt_Waerung(I).Locked = False Then 
      MsgBox "Sie müssen noch eine Wärung eintragen" 
      txt_Waerung(I).SetFocus 
      Exit For 
    Else 
      pub_Bezeichnung(I) = txt_Bezeichnung(I).Text 
      pub_Waerung(I) = txt_Waerung(I).Text 
    End If 
 
    Print #F, pub_Bezeichnung(I) 
  Next I 
 
  <font color=red>Close #F</font>
  Unload Me 
End Sub