Private Sub TextBox30_TextChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TextBox30.TextChanged
        Dim v$, path$, folder$
        v = TextBox30.Text
        If Microsoft.VisualBasic.Len(v) = 6 Then
 
            folder = Microsoft.VisualBasic.Left(v, 4) + "xx"
            path = laufwerk + folder + "\" + v
            Shell("explorer.exe " + path, vbMaximizedFocus)
 
        End If
    End Sub