Private Const laufwerk3 = "C:\"
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
 
        Dim v$, spath$, folder$
        Dim cDir As String
 
        'sPath = "C:\Dokumente und Einstellungen\Thomas Scholz\Eigene" & _
          "Dateien\Rechnungen 2008\Monatsrechnungen"
        v = TextBox3.Text
        folder = Microsoft.VisualBasic.Left(v, 4) + "xx"
        spath = laufwerk3 + folder + "\" + v '+ ordner3
        cDir = Dir(spath & "*.pdf")
        If Microsoft.VisualBasic.Len(v) = 6 Then
            Do While cDir <> ""
                System.Diagnostics.Process.Start(spath & cDir)
                'nächste Datei lesen
                cDir = Dir()
            Loop
        End If
    End Sub