No me funciono pero encontre esto que si funka.
Private Sub Form_Load()
Dim objWMI As Object, objAdaptador As Object
Dim arrIP As Variant, arrMascara As Variant
Dim arrPuertaEnlace As Variant, arrMetrica As Variant
Dim lngResultado1 As Long, lngResultado2 As Long
Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
arrIP = Array("192.168.1.141")
arrMascara = Array("255.255.255.0")
arrPuertaEnlace = Array("192.168.1.100")
arrMetrica = Array(1)
For Each objAdaptador In objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
lngResultado1 = objAdaptador.EnableStatic(arrIP, arrMascara)
lngResultado2 = objAdaptador.SetGateways(arrPuertaEnlace, arrMetrica)
If lngResultado1 = 0 And lngResultado2 = 0 Then
Label1 = "Dirección IP, máscara de subred y puerta de enlace modificadas"
Else
Label1 = "No se han podido modificar la dirección IP, máscara de subred y puerta de enlace"
End If
Next objAdaptador
Set objWMI = Nothing
End Sub
Ahora lo que necesito es activar el compartir archivos y impresoras mediante codigo.