Hallo,
ich möchte gerne in einem Adresserfassungs-Formular mit einem Textfeld einen Hyperlink verknüpfen der Art: > MailTo: [Inhalt des Textfelds]
Meinst Du so etwas:
Dim Addr
Addr = HyperlinkPart(Me!URL, acAddress)
If InStr(Addr, "http:") \> 0 And InStr(Addr, "@") \> 0 Then
Me!URL = StrSubs(Me!URL, "http://", "mailto:")
End If
'
' mit der Funktion StrSubs aus meinem Fundus:
'
Function StrSubs(s, Subs, Optional Repl = "", Optional N = 0)
'
' Teilzeichenkette **Subs** in Zeichenkette **S** durch **Repl** ersetzen
' Ersetzung maximal **n** mal ausführen, wenn n \> 0, sonst alle ersetzen
' Funktionswert: Falsch, wenn S = Null
'
Dim FPos As Integer, I As Integer, res As String
On Error GoTo Er
If Nz(s, "") = "" Then StrSubs = Null: GoTo Ex
If Nz(Subs, "") Then StrSubs = s: GoTo Ex
res = s
I = 0
FPos = InStr(1, res, Subs)
Do While FPos \> 0
I = I + 1
If N \> 0 And I \> N Then Exit Do
If FPos \> 1 Then
res = Mid(res, 1, FPos - 1) & Repl & Mid(res, FPos + Len(Subs))
Else
res = Repl & Mid(res, FPos + Len(Subs))
End If
FPos = InStr(FPos + Len(Repl), res, Subs)
Loop
StrSubs = res
Ex:
Exit Function
Er:
MsgBox err.description
Resume Ex
End Function
Meinst Du so etwas:
war zwar nicht ganz das was ich gesucht habe, aber auf Grund Deines Listings wurde ich auf die richtige Fährte geführt! 
Jetzt klappt’s! Vielen Dank!
Gruß
Uwe