Ok. I got it done in just 3 lines. :)
Dim Ret As Variant
Ret = Evaluate({ @RegQueryValue("HKEY_LOCAL_MACHINE"; "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion"; "ProductName") })
Msgbox Ret(0) '' It displays like Windows "10 Home Single Language"
Bundle of Thanks Dave.