Instead of all those GoTo's, this might be simpler
Option Explicit
Sub Example()
Dim CodeLength As Byte, CodeRange As Byte
Dim bOK As Boolean
bOK = False
Do While Not bOK
CodeLength = InputBox("Enter Code Length, 0 to exit")
Select Case CodeLength
Case 0
Exit Sub
Case 1 To 10
bOK = True
Case Else
MsgBox ("Please Enter a Number Between 1 and 10.")
End Select
Loop
bOK = False
Do While Not bOK
CodeRange = InputBox("Enter Code Range, 0 to exit")
Select Case CodeRange
Case 0
Exit Sub
Case 1 To 10
bOK = True
Case Else
MsgBox ("Please Enter a Number Between 1 and 10.")
End Select
Loop
End Sub