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