Dim varWeek As Variant
'Dim strroad As String
   varWeek = InputBox("Enter the number of the week (from 1 to 4)" _       
    , "Import of date")
   
Select Case varWeek

       Case 1, 2, 3, 4
   

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\1\Desktop\Order1.txt", _
        Destination:=Range("$A$3"))
        .Name = "Order"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False