I'm working a function for creating a superscript character in rich text and I can't seem to get it to work. Can someone help me with this? I'm making it for an A2K application and I'm limited to using only MS Rich Textbox Control 6.0.

Code:
=========================================
Private Sub btnSuperScript_Click()
    RichTextBox1.SelRTF = SuperScriptRTF(RichTextBox1.SelText, 9)
End Sub

----------------------------------------------
Private Function SuperScriptRTF(strText As String, Optional FontSize As Long = 9) As String
    ' fs<x> represents font size, where <x> is twice the required point size
    Dim fs As String

    fs = "fs" & (2 * FontSize)
    SuperScriptRTF = "{\rtf1\super\" & fs & " " & strText & "}"
End Function
=========================================

Thanks,
PC

Good luck. As you may already be aware, your code works perfectly in a VB6 app. Access can't seem to get its act together with the RICHTX32.ocx., and a handful of others. If you upgrade to A2K3, for example, you'll get an annoying message that Access doesn't even support the Rich TextBox control. Don't mean to hijack your thread, but has anybody seen a fix for that yet??? I saw a post on this forum from several months back suggesting uninstall/reinstall using regsvr32. No luck. Nothing in the knowledge base yet.

Bob

The only ideas to offer you are these. I hope they work for you. If I find anything else I'll post it in this thread. Let me know if this helps.

Microsoft Knowledge Base Article - 824165
ActiveX control that is contained in an Access form does not appear when the design-time license is not available
http://support.microsoft.com/default...b;en-us;824165

Access ActiveX Fix
http://www.access-programmers.co.uk/...achmentid=5967
http://www.access-programmers.co.uk/...803#post275803

++++++++++++++++++++++++++++++++++++++++++++++++++ ++++
As for my topic, I tried making some adjustments to the code and if anyone can tell me why this doesn't work and how to get it to work I would appreciate it.

Code:
================================================== ====
Public Function SuperScript()
    Dim strItem As String
    Dim strScript As String
    strItem = Forms![fdlgRTFEditor]![RichText].SelText
    strScript = "\cf0\super" & strItem & "\cf1\nosupersub"
    Forms![fdlgRTFEditor]![RichText].SelText = strScript
End Function

Public Function SubScript()
    Dim strItem As String
    Dim strScript As String
    strItem = Forms![fdlgRTFEditor]![RichText].SelText
    strScript = "\cf0\sub" & strItem & "\cf1\nosupersub"
    Forms![fdlgRTFEditor]![RichText].SelText = strScript
End Function
================================================== ====

Thanks much,
PC