'Suche nach Angebots-Ordner und öffnen
    '##########################################################################
    ' #########################
    Private Const laufwerk2 = "Z:\INT\Data\CustomerSolutions\Systems\DE_SY\"
    Private Const ordner2 = "\A\1. Projektierung\1.7 Angebote"
 
    Private Sub TextBox31_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox31.TextChanged
        Dim x$, path$, folder$
        x = TextBox31.Text
        If Microsoft.VisualBasic.Len(x) = 6 Then
 
            folder = Microsoft.VisualBasic.Left(x, 4) + "xx"
            path = laufwerk2 + folder + "\" + x + ordner2
            Shell("explorer.exe " + path, vbMaximizedFocus)
 
        End If
    End Sub