Private Sub txtEmpfang_Change()
Dim Pos1 As Long
Dim link As String
 
    Pos1 = InStr(1, txtEmpfang, "www", 1)
    If Pos1 <> 0 Then
        link = Mid(txtEmpfang, Pos1)
        Pos1 = InStr(1, link, " ", 1)
        If Pos1 <> 0 Then
            link = Mid(link, 1, Pos1 - 1)
            If Right(link, 1) = "." Or Right(link, 1) = "," Or Right(link, 1) = _
              "!" Then
                link = Mid(link, 1, Len(link) - 1)
            End If
        Else
            link = Mid(link, 1)
        End If
        lblLink.Caption = link
        'MsgBox link
        lblLink.ForeColor = vbBlue
    End If
End Sub

Nichts ist umsonst!