You can use WMI to get the string (that's what slmgr does). For example,
Dim LicQuery As SelectQuery = New SelectQuery("SELECT * From SoftwareLicensingProduct")
Dim Lic As ManagementObjectSearcher = New ManagementObjectSearcher(LicQuery)
For Each l In Lic.Get()
Dim s As String = l("Description")
Console.WriteLine(s)
Next
I'll leave it to you to parse the returned string. :)