Nyt spm ved input box

Nu har jeg fået min lille makro til at køre nogenlunde

Mit næste problem er at pakkenr og kundenr hænger sammen. så for at undgå at at brugeren ikke bare ændrer pakkenr uden at ændre kundenummer. tænkte jeg på om ikke man kunne oprette en inputbox, hvor kundenr og pakkenr intastes. Kundenr ryger i c3 og pakkenr i c4 og ja så kører makroen derfra.
Eller ja den kører bare med det samme.

Der må godt allerede i inputboxen komme fejlmeddelse hvis de ikke forfindes i den tilhørende fil.

Lige nu ser min makro sådan ud

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$4" Then
        Dim Sti As String, RW As Long, Linie As String
        Range("A9:A100").ClearContents    ' tømmer fra A7 til A100 inden koden køres
        Range("C9:C100").ClearContents  'tømmer fra C7 til C100 inden koden køres
        Range("H9:H100").ClearContents  'tømmer fra H7 til H100 inden koden køres
        Range("G9:G100").ClearContents  'tømmer fra I7 til I100 inden koden køres
        Sti = "H:\pakkeinstruktioner\TEST af makro\0"
        If Dir(Sti & Target & ".txt") <> "" Then    ' tjekker om filer eksisterer
            Open Sti & Target & ".txt" For Input As #1
            RW = 9
            While Not EOF(1)
                Line Input #1, Linie
                Cells(RW, "A") = Val(Trim(Right(Split(Linie, ";")(10), (Len(Split(Linie, ";")(10)) - 4))))
                Cells(RW, "C") = Mid(Split(Linie, ";")(28), 5, (Len(Split(Linie, ";")(28)) - 5))
                Cells(RW, "G") = Split(Linie, ";")(3)
                Cells(RW, "H") = Split(Linie, ";")(29)
                RW = RW + 1
            Wend
            Close (1)
        Else
            MsgBox " pakkebatchnummer findes ikke"
        End If
    End If
End Sub

En liste over alle eksisterende kundenumre findes på
"H:\pakkeinstruktioner\skabelon\koncept"

LN