You could use Process.Start to run the command line...
But, this should work as well:
Private Shared Function DeleteShare(shareName As String) As Integer
Using o As New ManagementObject("root\cimv2", "Win32_Share.Name='" & shareName & "'", Nothing)
Dim mbo As ManagementBaseObject = o.InvokeMethod("delete", Nothing, Nothing)
Return CInt(mbo.Properties("ReturnValue").Value)
End Using
End Function