RichTextBoxEx1.InsertLink("Descripción", "C:\TEST.txt")
' o
RichTextBoxEx1.InsertLink("C:\TEST.txt")

    Private Sub RichTextBoxEx1_LinkClicked_1(sender As Object, e As LinkClickedEventArgs) Handles RichTextBoxEx1.LinkClicked
        'MsgBox(e.LinkText.ToString())
        'MsgBox(e.LinkText.Split("#")(1))
        Dim FileInformation = My.Computer.FileSystem.GetFileInfo(e.LinkText.Split("#")(1))
        Process.Start("explorer.exe", " /select," & FileInformation.DirectoryName & FileInformation.Name)
    End Sub
 

...
AppendText(results_box, Color.White, ControlChars.Quote & "file://" & File.FullName.ToString() & ControlChars.Quote & vbNewLine)
...

For /F "tokens=2 delims==" %%@ in ('wmic logicaldisk get name /Format:list') Do (
	echo %%@
)

My.Computer.FileSystem.RenameFile("C:\tEsT.txt", "test.txt")
My.Computer.FileSystem.RenameDirectory("C:\OldDirectory", "OldDIRECTORY")

dir /b /s %%i:\ | find  "ARCHIVO_XX.txt"

(
	for %%i in (b c d e f g h i j k l m n o p q r s t u v w x y z) do (
		IF EXIST %%i:\ (dir /b /s "%%i:\ARCHIVO_XX.txt" >> "%userprofile%\salida.txt")
	)
)

fsutil fsinfo drives