Visual Basic para Aplicaciones - Problemas con Hyperlinks en VBA con Word

Hola estoy trabajando con Word y Visual Basic y tengo el siguiente problema:

Sub Markierung()
Dim i As Integer
Dim x, cad As String
Dim Text As String

i = 0
x = Selection.Text
Text = "_" + Replace(x, " ", "_", 1, 3)
cad = Mid(Text, 1, 36)

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", _
SubAddress:=cad, ScreenTip:="", _
TextToDisplay:=Selection.Text

End Sub

Hice este procedimiento para lograr al ejecutar esto que automaticamente me asigne el link del titulo seleccionado, pero tengo problemas con el hyperlink, ya que no hace nada al ejecutarlo, pero si asigna la direccion correspondiente.
Yo creo que el problema esta en el sTring "cad" que es como ya dije un String y quiero comvertirlo a otro tipo de variable para hacer pruebas haber si funciona.

alguien me puede ayudar y decir como puedo comvertir un String a Character o a un Texto simple o a Hyperlinks.

Ojala me puedan ayudar.

Saludos
Gabriela