Merging to input boxes

How can I combine these two input boxes. The first input box takes a 15 digit number and places it in the active cell. The second input box takes a 125 digit number and breaks it down into 5 15 digit numbers. It then places the 5 15 digit numbers into the active cell and then the next 4 cells. I want to have just 1 input box that can do this.

1)Sub IMEI()
'Input Box for single bar codes
Do
Application.OnKey "s", "IMEI"
' Runs aoutmatically by pressing z

EIMEI = Application.InputBox("Enter the IMEI", , , , , , 1 + 2)
' Code for input box

If EIMEI = "" Then Exit Sub
' On OK if Scan iz zero then you will exit the input box

ActiveCell.Value = EIMEI
' Enters IMEI into the Active cell
ActiveCell.Offset(1, 0).Range("a1").Select
' Moves active cell down one cell

Loop
End Sub

2)Sub BUBBLE()
'Input Box for Bubble bar codes
Do
Application.OnKey "b", "BUBBLE"
' Runs aoutmatically by pressing b

Dim EBUBBLE As String
EBUBBLE = Application.InputBox("Scan the Bubble", , , , , , 1 + 2)
' Code for input box

If EBUBBLE = "" Then Exit Sub
'On OK if Scan iz zero then you will exit the input box

ActiveCell.Value = Mid(EBUBBLE, 14, 12)
ActiveCell.Offset(1, 0).Range("a1").Select
' Selects first IMEI
ActiveCell.Value = Mid(EBUBBLE, 39, 12)
ActiveCell.Offset(1, 0).Range("a1").Select
' Selects second IMEI
ActiveCell.Value = Mid(EBUBBLE, 63, 13)
ActiveCell.Offset(1, 0).Range("a1").Select
' Selects third IMEI
ActiveCell.Value = Mid(EBUBBLE, 88, 13)
ActiveCell.Offset(1, 0).Range("a1").Select
' Selects fourth IMEI
ActiveCell.Value = Mid(EBUBBLE, 113, 13)
ActiveCell.Offset(1, 0).Range("a1").Select
' Selects fifth IMEI

Loop
End Sub