SoloCodigo

hola estoy haciendo un pekeño programa para descompartir carpetas pero no al momento de ejecutarlo no hace nada bueno si hace pero no como yo kiero
pongo el codigo...

Dim a As String


Private Sub Command2_Click()

'Establecer Variables
strComputer = "."

a = Text1.Text
'Eliminar Recurso Compartido
'Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = 'C'")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = 'a'")
For Each objShare In colShares
objShare.Delete
Next

End Sub

Private Sub Form_Load()
Text1.Text = "test1"
'a = Text1.Text
End Sub

con este codigo no hace nada????
pero con este otro si lo hace sin problemas
Dim a As String


Private Sub Command2_Click()

'Establecer Variables
strComputer = "."

'Establecer Equipo donde se creara el Recurso Compartido
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

'Eliminar Recurso Compartido
'Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = 'C'")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share Where Name = 'test1'") ' le tengo ke poner el nombre directamente para ke lo haga .....For Each objShare In colShares
objShare.Delete
Next

End Sub

y lo kiero hacer como el primer codigo espero me ayuden.... GRACIAS