Private Sub Command1_Click()
Dim regEx As Object
Dim strng As String
Dim m As MatchCollection
Set regEx = New VBScript_RegExp.RegExp

With regEx
.pattern = "[$][A-Z][a-z]*"
.IgnoreCase = True
.Global = True
End With

rtb.SelText = regEx.Replace(rtb.Text, "???")
'rtb.SelText = vbGreen

Set regEx = Nothing
End Sub

   S GG=$P(^K1,":", 2 ),GJ=""
    S LN=$P(^K1,":") S:$L(LN)= 1  LN="0"_LN,GJ=""
    S DGDM=GG_LN
    F  S A1=$O(^NS1(A1)) Q:A1=""  D
    .F  S A2=$O(^NS1(A1,A2)) Q:A2=""  D
    ..F  S A3=$O(^NS1(A1,A2,A3)) Q:A3=""  D
    ...F  S A4=$O(^NS1(A1,A2,A3,A4)) Q:A4=""  D

Dim i As Integer
Dim txtPattern As String
   fs = rtb.Text
   fs.Pattern = "[$][A-Z][a-z]*"
   For i =  0  To fs.MatchCount -  1 
   rtb.SelStart = fs.MatchStart(i)
   rtb.SelLength = fs.MatchLength(i)
   rtb.SelFontName = "Courier New"
   rtb.SelBold = True
   rtb.SelFontSize =  10 
   rtb.SelColor = vbMagenta
    Next