1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Private Sub cmdOpen_Click()
Dim strFile As String
On Error Resume Next
cdl.ShowOpen
If Err.Number = 0 Then
  If fso.FileExists(cdl.FileName) Then
    Set brief = fso.OpenTextFile(cdl.FileName, ForReading)
    strFile = brief.ReadAll
    brief.Close
    txtBrief.Text = strFile
  End If
End If
End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Private Sub Form_Click ()
   Dim Answer, Msg as String   ' Variable deklarieren.
   Unload Form1   ' Formular entladen.
   Msg = "Formular1 ist entladen. Wählen Sie 'Ja', um das Formular zu laden und"
   Msg = Msg & "anzuzeigen. Wählen Sie 'Nein', um das Formular zu "
   Msg = Msg & "laden, ohne es einzublenden."
   Answer = MsgBox(Msg, vbYesNo)   ' Benutzerantwort.
   If Answer = vbYes Then   ' Antwort auswerten.
      Show   ' Wenn "Ja", Formular anzeigen.
   Else
      Load Form1   ' Wenn "Nein", Formular nur laden.
      Msg = "Formular1 ist jetzt geladen. Wählen Sie 'OK', um es "
      Msg = Msg & "anzuzeigen."
      MsgBox Msg   ' Meldung anzeigen.
      Show   ' Formular einblenden.
   End If
End Sub