sti i textbox ændres til hyperlink

Hey.
Jeg har lavet en kode, så at jeg får stien til f.eks et billede ind i en textbox, når jeg så trykker på save, så skal den tage den sti og lave den om til et hyperlink i excel. hvad er koden til det.

Private Sub Cmdfindpicture_Click()
Dim fil, nextRæk
Rem Udpeg ny fil

    fil = Application.GetOpenFilename
 

Rem tilføj hyperlink til listbox
    Me.ListBox1.AddItem fil


End Sub
Private Sub ListBox1_Click()
Rem følg hyperlink
    ActiveWorkbook.FollowHyperlink Address:=Me.ListBox1
End Sub


Private Sub cmdsavedata_Click()
With Worksheets("Ark1")
    lNextRow = .Range("A65000").End(xlUp).Row + 1
    .Cells(lNextRow, 1).Value = Me.TextBox1.Text
    .Cells(lNextRow, 2).Value = Me.TextBox2.Text
    .Cells(lNextRow, 3).Value = Me.TextBox3.Text
    .Cells(lNextRow, 4).Value = Me.TextBox4.Text
    .Cells(lNextRow, 5).Value = Me.TextBox5.Text
    .Cells(lNextRow, 6).Value = Me.TextBox6.Text
    .Cells(lNextRow, 7).Value = Me.TextBox7.Text
    .Cells(lNextRow, 8).Value = Me.TextBox8.Text
    .Cells(lNextRow, 9).Value = Me.ListBox1
    lNextRow = .Range("A65000").End(xlUp).Row + 1
    Me.TextBox1.Text = ""
    Me.TextBox2.Text = ""
    Me.TextBox3.Text = ""
    Me.TextBox4.Text = ""
    Me.TextBox5.Text = ""
    Me.TextBox6.Text = ""
    Me.TextBox7.Text = ""
    Me.TextBox8.Text = ""