Private Sub speichern_Click()
  Dim F As Integer
  Dim G As Integer
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    .Flags = cdlOFNOverwritePrompt
    .Filter = "Textdateien (*.txt)|*.txt"
    .ShowSave
    If .FileName <> "" Then
      F = FreeFile
      G = FreeFile
      Open .FileName For Output As #F
      Open .FileName For Output As #G
 
      Print #F, englischvok.Text
      Print #F, deutschevok.Text
 
      Close #F
      Close #G
    End If
  End With
End Sub