Link-Hotspot in Richtextfeld einfügen

Nochma Danke für die liebe Hilfe. Sieht jetzt echt super aus.
Hier nochmal der gesamte Code:
1) Pfad raussuchen und im Feld speichern:
Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim se As NotesSession
Dim db As NotesDatabase
Dim profil As NotesDocument
Dim Ablagepfad As Variant
Dim Ablage_default As String

Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument

Set se = New NotesSession
Set db = se.CurrentDatabase
Set profil = db.GetProfileDocument("(DBProfil)")
Ablage_default = profil.Ablage_Start(0)

Ablagepfad = ws.SaveFileDialog( True , "Ablagepfad", , Ablage_default )
If Not Isempty(Ablagepfad) Then Call uidoc.FieldSetText("Ablagepfad", Ablagepfad(0))
Call uidoc.Refresh
End Sub

2) Pfad aufrufen und ausgewählte Dateien im richtigen Programm öffnen:
Sub Click(Source As Button)
Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim ff As Integer
Dim i As Integer
Dim Ablagepfad As String
Dim temp_verz As String
Dim id
Dim datei
Dim datei_temp As String

Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument

Ablagepfad = uidoc.FieldGetText("Ablagepfad")
datei = ws.OpenFileDialog( True , , , Ablagepfad )
If Isempty(datei) Then Exit Sub

temp_Verz = Environ("Temp")
ff = Freefile
datei_temp = Format(Now, "yymmddhhnnss") & ".cmd"
Open temp_Verz & "\" & datei_temp For Output As ff
For i = 0 To Ubound( datei)
Print #ff, "start """" """ & datei(i) & """"
Next
Print #ff, "del """ & temp_Verz & "\" & datei_temp & """"
Print #ff, "exit"
Close #ff
id = Shell (temp_Verz & "\" & datei_temp, 7)
End Sub

Hallo!
Nochmal danke an Diali für die prompte Hilfe beim EC.
Komischerweise hat der User jetzt das Problem, daß Dokumente nicht geöffnet werden können, wenn der Pfad etc. Umlaute enthält.
Kannt einer dieses Problem?

Hat leider nicht geholfen. Lediglich das Sonderzeichen, das anstelle des "ä" steht, sieht jetzt anders aus

Ich hab's!
Open temp_Verz & "\" & datei_temp For Output As ff
For i = 0 To Ubound( datei)
Print #ff, "chcp 1252"
Print #ff, "start """" """ & datei(i) & """"
Next

Die Frage ist nur, ob man das
Print #ff, "chcp 1252"
nur einmal einfügen muß, oder vor jeden start-Befehl. Macht aber nicht so einen großen Unterschied, oder?

Dann sag mir nur noch, wo im Script der Eintrag hin muß.
Ich hatte es eigentlich vor dem For versucht, aber das scheint nicht zu funktionieren...

Komisch! Ich mein' ich hätte es genauso probiert und da ging es nicht!
Jetzt geht's aber!
Merci!