Subscripts

[Fugacity]

Don't forget those numbers are hexadecimal, so you'll need to include the hexadecimal literal prefix

    Private _subscripts As New Dictionary(Of Integer, String) From {
    {1, ChrW(&H2081)},
    {2, ChrW(&H2082)},
    {3, ChrW(&H2083)},
    {4, ChrW(&H2084)},
    {5, ChrW(&H2085)},
    {6, ChrW(&H2086)},
    {7, ChrW(&H2087)},
    {8, ChrW(&H2088)},
    {9, ChrW(&H2089)},
    {10, ChrW(&H2081) & ChrW(&H2080)}}

As for fonts, Google says try Palatino Linotype, or Calibri which I think is only supplied with Windows 7.

Thank you. Those changes did the trick. Palatino Linotype and Calibri also works with windows 8. I guess now I would have to create a function so that it works for any number.