[محمود اكرم]

السلام عليكم وبعد اذنك اخ Aly El-Haddad هذا كود اسهل للفهم وللسرعة
بما انك اخ Aly El-Haddad استعملت اداة القطع Split لذا استخدمتها بشكل اسهل واسرع

إقتباس :Dim wd
Dim m, x As Long
wd = Split(RichTextBox1.Text, " ")
For Each y In wd
x = x + Len(y) + 1
If x > RichTextBox1.SelectionStart Then
m = x - (Len(y) + 1)
MsgBox(y)
RichTextBox1.SelectionStart = m
RichTextBox1.SelectionLength = Len(y)
RichTextBox1.Focus()
Exit For
End If
Next

استمتعوا بالكود ارجوا ان يكون هو المطلوب