Преобразование текста в подстрочный

'надстрочный текст
Selection.Font.Superscript = True
 
'подстрочный текст
Selection.Font.Subscript = True

Option Explicit
 
Private Sub Form_Load()
  LabelEx Label1, "C/2|H/5|OH\40%/хочется, да не лезет!"
End Sub
 
Sub LabelEx(Label, S$)
Dim I&, J&, C As String * 1
Set Me.Font = Label(0).Font
Label(0).Caption = ""
Label(0).Width = 0
Label(0).Height = Me.TextHeight(Label(0).Caption)
For I = 1 To Len(S)
  C = Mid$(S, I, 1)
  Select Case C
  Case "|", "/", "\"
    J = J + 1
    Load Label(J)
    With Label(J)
      .Caption = ""
      .Visible = True
      .Left = Label(J - 1).Left + Label(J - 1).Width
      Select Case C
        Case "|" 'нормальный текст
          .Top = Label(0).Top
          .FontSize = Label(0).FontSize
        Case "\" 'надстрочный
          .Top = Label(0).Top - Label(0).Height / 2
          .FontSize = Label(0).FontSize * 2 / 3
        Case "/" 'подстрочный
          .Top = Label(0).Top + Label(0).Height / 2
          .FontSize = Label(0).FontSize * 2 / 3
      End Select
    End With
  Case Else
    With Label(J)
      Set Me.Font = Label(J).Font
      .Caption = .Caption + C
      .Width = Me.TextWidth(.Caption)
      .Height = Me.TextHeight(.Caption)
    End With
  End Select
Next I
End Sub