Private Sub cmdOpen_Click()
  myText.Text = OpenFile()
End Sub

<code><font color=green>' Textdatei auslesen und als String zurückgeben</font>
 
<font color=#000099>Private</font> <font color=#000099>Function</font> OpenFile( _
  Optional <font color=#000099>ByVal</font> sFilter <font _
  color=#000099>As</font> <font color=#000099>String</font> = "Textdateien (" & _
  "*.txt)|*.txt") <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  <font color=#000099>Dim</font> sInhalt <font color=#000099>As</font> <font _
    color=#000099>String</font>
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
 
  <font color=green>' CommonDialog "Öffnen"</font>
  <font color=#000099>Dim</font> Dialog <font color=#000099>As</font> Object
 
  <font color=#000099>On</font> <font color=#000099>Error</font> Resume <font _
    color=#000099>Next</font>
  <font color=#000099>Set</font> Dialog = CreateObject("MSComDlg.CommonDialog")
  <font color=#000099>With</font> Dialog
    .CancelError = <font color=#000099>True</font>
    .maxFileSize = 260
    .Filter = sFilter
    .showOpen
    <font color=#000099>If</font> Err = 0 <font color=#000099>Then</font>
      <font color=green>' Datei einlesen</font>
      F = FreeFile
      <font color=#000099>Open</font> .FileName <font color=#000099>For</font> _
        <font color=#000099>Binary</font> <font color=#000099>As</font> #F
      sInhalt = Space$(LOF(F))
      Get #F, , sInhalt
      <font color=#000099>Close</font> #F
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>End</font> <font color=#000099>With</font>
  <font color=#000099>On</font> <font color=#000099>Error</font> GoTo 0
 
  OpenFile = sInhalt
<font color=#000099>End</font> <font color=#000099>Function</font></code>