Kan Makroen indskrive data automatisk.

Jeg har følgende Makro som henter oplysninger fra filen >JOBnrMed_Tekst< og viser det i en
MsgBox i form af fire linier:
I kolonne c8:c200 er indskrevet de værdier der dobbelt klikkes på.
Mit spørgsmål er, kan jeg (hvordan) når værdierne i c8:c200 er indskrevet få vist/indskrevet 4. linie i MsgBox i F155:F174, den 4. linie er også kolonne D i filen >JOBnrMed_Tekst<
Eks.:
      A              B                          C                            D
1234567    1500as  ddkfdkfdlflfdlfdfldlflflf      SSDFGJ

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim ss, ss2, ss3 As String
  On Error GoTo fejl
    If Not Intersect(Target, Range("c8:c200")) Is Nothing Then
    Cancel = True
    ss = "'" & Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\"))
   
    ss3 = ss & "[JOBnrMed_Tekst.xls]Sheet1'!$A$2:$D$2500,4,false"
    ss2 = ss & "[JOBnrMed_Tekst.xls]Sheet1'!$A$2:$D$2500,3,false"
    ss = ss & "[JOBnrMed_Tekst.xls]Sheet1'!$A$2:$D$2500,2,false"
   
    ss = "=vlookup(" & Target.Address & "," & ss & ")"
    ss2 = "=vlookup(" & Target.Address & "," & ss2 & ")"
    ss3 = "=vlookup(" & Target.Address & "," & ss3 & ")"
        [aa1].Formula = ss
    [aa2].Formula = ss2
    [aa3].Formula = ss3
    If IsError([aa1]) Then MsgBox Target.Value & vbCr & ("Ingen hjælpetekst") Else
                    MsgBox Target.Value & vbCr _
                    & [aa1].Value & vbCr _
                    & [aa2].Value & vbCr _
                    & [aa3].Value
          '[aa1:aa3].Clear
  End If
  Exit Sub
fejl:
  MsgBox ("der er sket en fejl")
End Sub

Mfj1