VBA "fejl"

Hej E.

Jeg har denne kode:

Private Sub btnGo_Click()
    Dim oHyp As Hyperlink
    Dim Resultat As String
    Dim strFind As String
    Dim strReplace As String
   
    strFind = txtFind.Value
    strReplace = txtReplace.Value
   
    lbxResultat.Clear
    lbxResultat2.Clear
   
    For Each oHyp In ActiveSheet.Hyperlinks
        Resultat = oHyp.Address
        lbxResultat.AddItem (oHyp.Address)
        Resultat = Replace(Resultat, " " & strFind & " ", " " & strReplace & " ")
        'Resultat = Replace(Resultat, "2007", "2008")
        oHyp.Address = Resultat
        lbxResultat2.AddItem (oHyp.Address)
    Next oHyp
End Sub

Men den rettet ikke resultetet når jeg bruger variablerne, men det gør den bpr jeg bruger "faste" tal eks. 2007.

Kan i se hvorfor ?