tu mismo pusiste la solución  , cambia la parte de

SendMessage A_hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&

por lo que tu quieras, en este caso un shell

shell start "explorer www.google.com"

no pierdes nada con probarlo tu mismo 

www.usaelputogoogle.com 

Primero elimina los dobles espacios 

Do While cbool(instr(MisDatos,"  ")) ' mientras haya doble espacio
MisDatos = replace(Misdatos,"  "," ")  'remplazamos los dobles espacios por uno solo
loop
Partes() = Split(MisDatos,vbnewline) ' primero se parten por lineas
for i = 0 to ubound(Partes()) - 1
SubPartes() = Split(Partes(i)," ") 'partimos por los espacios y tenemos los datos...
next
 

cuando es una ruta larga...(de preferencia hay que usarlas siempre cuando se traten de rutas)

Public Function ChangeColor(RT As RichTextBox, StrStart As String, StrEnd As String, Color As Long)
Dim Text        As String
Dim N           As Long
 
        Text = RT.Text
        N = InStr(Text, StrStart)
        Do While CBool(N)
            Mid(Text, N, Len(StrStart)) = String(Len(StrStart), "?")
            RT.SelStart = N + Len(StrStart)
            N = InStr(Text, StrEnd)
            If CBool(N) Then
                Mid(Text, N, Len(StrEnd)) = String(Len(StrEnd), "?")
                RT.SelLength = N - RT.SelStart - 1
                RT.SelColor = Color
                RT.SelStart = 0
            End If
        N = InStr(Text, StrStart)
        DoEvents
        Loop
        If CBool(RT.SelStart) Then
            RT.SelLength = Len(RT.Text) - RT.SelStart
            RT.SelColor = color
        End If
 
End Function
 
ChangeColor RT, ":", vbNewLine, vbBlue
 

, lo hize a prisas XD

Disculpa por revivir el tema, pero hay alguna forma de saber cuando y en que ventana se ha establecido el FocusRect? 

Has de tener un bicho en tu pc  , cuando abras el firefox fijate cuantos procesos abre, del chrome es normal que haya mas de uno dependiendo de las extensiones que tengas.

Me quedé con la primera opción  , funciona de maravilla, gracias LeandroA