Option Explicit On
 
Public Class Form1
    Private Const laufwerk = "C:\"
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
        'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
        ' System.EventArgs) Handles Button1.Click
        Dim v$, path$, folder$
        v = TextBox1.Text
 
        folder = Microsoft.VisualBasic.Left(v, 4) + "xx"
 
        path = laufwerk + folder + "\" + v
        Shell("explorer.exe " + path, vbNormalFocus)
 
    End Sub
End Class