CodeItBetter Programming Another VB Programming Blog

'Controls - How to get the currently Selected Text in Rich Text Box

Option Explicit
 
'Add a Command Button, and a Rich Text Box to your form.

Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
    ByVal wMsg As Long, ByVal wParam As Long, lParam As String) As Long
Public Const EM_GETSELTEXT = &H43E
 
Private Sub Command1_Click()
    Dim selectedTxt As String
    Dim lRet As Long
    selectedTxt = Space(1000)
    lRet = SendMessageStr(RichTextBox1.hwnd, EM_GETSELTEXT, 0, ByVal selectedTxt)
    Debug.Print "The selected Text: " & selectedTxt
End Sub