[RESOLVED] Richtextbox - find special signs, and select bold [ Whole word only ]

[xavierjohn22]

you can check if that text is numeric

Private Function IsNumericOnly(sExpression As String) As Boolean
    Dim sTemp As String
    Dim iLen As Integer
    Dim iCount As Integer
    Dim sChar As String

    sTemp = sExpression
    iLen = Len(sTemp)
    If iLen > 0 Then
        For iCount = 1 To iLen
            sChar = Mid(sTemp, iCount, 1)
            If Not sChar Like "[0-9]" Then Exit Function
        Next
        IsNumericOnly = True
    End If
End Function