Vælg mellem to MsgBox

Jeg har brug for lidt hjælp til at ændre i den efterfølgende Makro

I dag skrives Jobnr ind i C8-C20 i Ark ”indskriv projekt nr” i Projektmappen, Jobnr er altid et tal på 7 cifre, når Jobnr er skrevet ”går” Makro op i Projektmappen JOBnrMed_Tekst og søger i kolonne A efter det Jobnr der lige er skrevet ind, findes Jobnr går Makroen i rækken til kolonne D og kopier den Ans. Rep., og Indsætter den Ans. Rep. i F155:F174 i det Ark hvor Jobnr blev skrevet ind.

Jeg vil gerne hente flere oplysninger fra JOBnrMed_Tekst og vise dem i MsgBox.
I dag vises følgende fra JOBnrMed_Tekst i MsgBox fra kolonne:
A, Jobnr
B, Tekst
C, VHC
D, Ans.rep.
Jeg vil gerne have til føjet følgende fra kolonne:
E, Job prioritet
F, KKSnr
G, Dato

Når jeg i dag dobbelt klikker på et indskrevet Jobnr og Makroen ikke finder det i JOBnrMed_Tekst, får jeg blot en meddelelse om at der er fejl.
Kan jeg ikke få en meddelelse der siger følgende: ”Enten har du skrevet forkert Jobnr, der ikke findes i XXXi, eller også findes Jobnr ikke i VVV for Værksted.”. Det skal derefter klikkes på OK.
-----------------------------------------------------------------------------------------------------------
Som noget nyt er vi begyndt at bruge en ny ”type” Jobnr der består af bogstaver og tal eks. esvv-10-002-uf eller
klmm-12-0003. Kan Makroen kende forskel på de forskellige typer Jobnr?

For når et Jobnr der indeholder bogstaver, vil jeg gerne kunne hente oplysninger fra Projektmappen JOBnrMed_Tekst og vise dem i MsgBox, men kun fra følgende kolonner i projektmappen JOBnrMed_Tekst.
A, Jobnr
B, Tekst

Findes den nye ”type” Jobnr ikke (når det er skrevet ind i C8-C20) når jeg dobbelt klikker på Jobnr, vil jeg gerne have følgende meddelelse vist i en MsgBox, ” Du har skrevet et forkert Projektnr der ikke findes.”.
-------------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim wkbJobs As Workbook
    Dim wksJobs As Worksheet
    Dim rCurReg As Range
    Dim rCell As Range
   
    ' DoubleClick på projektnr.
    On Error GoTo ProgErr
    If Not Intersect(Target, Range("C8:C500")) Is Nothing Then
        Application.ScreenUpdating = False
        Cancel = True
        Set wkbJobs = Application.Workbooks.Open(Left(ThisWorkbook.Path, _
            InStrRev(ThisWorkbook.Path, "\")) & "JOBnrMed_Tekst.xls")
        Set wksJobs = wkbJobs.Worksheets(1)
        Set rCurReg = wksJobs.Range("A1").CurrentRegion
        Set rCurReg = rCurReg.Offset(1, 0).Resize(rCurReg.Rows.Count - 1)
       
        For Each rCell In rCurReg.Columns(1).Cells
            If UCase(Trim$(CStr(rCell.Value))) = UCase(Trim$(CStr(Target.Value))) Then
                MsgBox "JobNr.:    " & Target.Value & vbCrLf & _
                      "Tekst:      " & rCell.Offset(0, 1).Value & vbCrLf & _
                      "VHC:        " & rCell.Offset(0, 2).Value & vbCrLf & _
                      "Ans. rep.: " & rCell.Offset(0, 3).Value, _
                      vbInformation + vbOKOnly, "Projekt information"
                Exit For
            End If
        Next rCell
        wkbJobs.Close SaveChanges:=False
        GoTo CleanUP
    End If
   
ProgErr:
    MsgBox "Der er sket en fejl!", vbCritical + vbOKOnly, "Systeminformation"

CleanUP:
    Set wkbJobs = Nothing
    Set wksJobs = Nothing
    Set rCurReg = Nothing
    Set rCell = Nothing
    Application.ScreenUpdating = True
End Sub

Johnfm