Heading didn't make much sense but not sure how to describe it. What I need is this. I have set up a macro as shown in this thread but I need to be able to have some of the boxes do the following. Instead of coming up with the question and then you put in the answer I need a thing that comes up with 2 boxes and when you type in 3 numbers then it switches to the next box. As well, in between these 2 numbers a "|" needs to be placed.

So You would type say 410 in the box and then it switches to the next box that can be seen in the same pop up box (like tab's over) and then you type say 662 and then you hit ok, and it insert "410|662" (without "") into the designated cell. At the moment this is my code for the macro:
Public Sub CaptureInputB()
Dim strPwd As String, vResponses(1 To 2) As Variant
strPwd = "password"
vResponses(1) = Application.InputBox("Enter your village name", "village", "", Type:=2)
vResponses(2) = Application.InputBox("Enter coordinates of your village", "village2", "", Type:=2)
If IsNumeric(Application.Match(False, vResponses, 0)) Then
    MsgBox "Not All Entries Complete - Action Cancelled", vbCritical, "Incomplete"
Else
    ActiveSheet.Unprotect strPwd
    'copy template range to next available row (formats, formulae, locked status etc...)
    Range(Cells(7, "A"), Cells(7, "AH")).Copy Destination:=Cells(Rows.Count, "A").End(xlUp).Offset(1)
    With Cells(Rows.Count, "a").End(xlUp)
        'village
        .Value = vResponses(1)
        'village2
        .Offset(, 1).Value = vResponses(2)
    End With
    ActiveSheet.Protect strPwd
End If
End Sub
The second input box is the one it's for.

Here's an example of what I mean: http://tribalwarsmap.com/traveltimes?world=1
Except, when you type the first 3 digits in at the top it would switch to the next box to the right. The pop up would only have 2 boxes to put data into though, not 4.

ty for any help in advance