How do i make relative path for image to be shown on multipage?

[Lkivagten]

Hi guys

I would like to be guided on my way to make a relative path for an image that is shown on a multipage

I have already a working code but not with relative path for the image.

Private Sub MultiPage1_Change()
    If MultiPage1.Value = 7 Then
    Dim StrTekst As String
    StrTekst = ActiveWorkbook.Path & "\data\Tekst\Diverse tekst\" & "Brugernavne.txt"
        TextBox6.Text = LæsFil(StrTekst)
    End If
    If MultiPage1.Value = 6 Then
    Image14.Picture = LoadPicture("k:\spid\spid\data\Tekst\Teknisk tid\Teknisktid.jpg")
    End If
End Sub

i need to code something similar to the first part of my shown code and i have already tried to rewrite the code taken from the text-part but i guess i need a "picturreviewer"-function.. or do i?

Can anyone give little assistance?

Thank you