Crei una textbox e un bottone e nel codice del bottone scrivi:
codice:
Private Sub Command1_Click()
Dim Car As String
Car = Text1.Text
Shell ("explorer.exe " + Car) 'è importante che dopo explorer.exe ci sia uno spazio
End Sub