Private Const laufwerk3 = "Z:\INT\Data\CustomerSolutions\Systems\DE_SY\"
    Private Const ordner3 = "\1. Projektierung\1.8 E-Mail Eingang"
 
    Private Sub TextBox43_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox43.TextChanged
        Dim x$, y$, path$, folder$
        x = TextBox43.Text
        y = TextBox7.Text
        If Microsoft.VisualBasic.Len(x) = 6 Then
 
            folder = Microsoft.VisualBasic.Left(x, 4) + "xx"
            path = laufwerk3 + folder + "\" + x + "\" + y + ordner3
            Shell("explorer /e," & path, vbMaximizedFocus)
 
        End If
 
    End Sub