Option Explicit

Private Sub Form_Load()

' Ett exempel som du kan använda för att
' testa programmet.
Dim txt As String
txt = "Detta lilla program visar hur du gör för att finna det ord som användaren har klickat " & vbCrLf
txt = txt & "på i din RichTextBox kontroll. " & vbCrLf
txt = txt & "Exempelvis, om texten innehåller flera mellanslag på en rad, klickar " & vbCrLf
txt = txt & "du i mitten på de, kommer programmet att returnera en sträng av mellanslag. " & vbCrLf
txt = txt & "Detta exempel äv endast för demonstration. " & vbCrLf
txt = txt & "Du skulle säkert kunna använda detta till grund för att exempelvis starta " & vbCrLf
txt = txt & "din Browser om du klickar på en 'länk'."
RichTextBox1.Text = txt

End Sub

Private Sub RichTextBox1_Click()
Dim pos1 As Integer
Dim pos2 As Integer
Dim txt As String
Dim txtlen As Integer

' Finn början på markerat ord.
pos1 = RichTextBox1.SelStart
txt = RichTextBox1.Text
If pos1 > 1 Then
Do While Mid$(txt, pos1, 1) <> " "
pos1 = pos1 - 1
If pos1 <= 1 Then Exit Do
Loop
If pos1 > 1 Then pos1 = pos1 + 1
End If

' Finn ordets längd, Obs! kontrollerar endast
' efter nästa "space", inte exempelvis crlf
pos2 = pos1
txtlen = Len(txt)
Do While Mid$(txt, pos2, 1) <> " "
pos2 = pos2 + 1
If pos2 > txtlen Then Exit Do
Loop
If pos2 <= txtlen Then pos2 = pos2 - 1
txt = Mid$(txt, pos1, pos2 - pos1 + 1)

' Presentera det du klickade på
MsgBox "Du klickade på " & txt

End Sub