Bronze Collection > May-1998 > Tip: Symbolically Yours

Charlie Curtis Bronze Collection

I've never found a suitable method for inserting symbols into text. I've written a selection of functions for the common symbols and assigned them to keystrokes. I suspect that there's an easier method, but I haven't found it yet. Here's the one I use for inserting the diameter symbol:

Public Function chrDia()

Dim ctl As Control

Set ctl = Screen.ActiveControl

ctl = ctl & Chr(216) 'diameter symbol

ctl.SelStart = Len(ctl)

End Function