For i = 1 to Ubound(SortArray)
        If CInt(Right(SortArray(i),3)) - strPrevious > 1 then
            GapCount = strPrevious
            Do until GapCount => (CInt(Right(SortArray(i),3)) -1)
                GapCount = GapCount + 1
                If m = Cint(Quantity) Then
                    Exit For
                Else
                    If Loc = "xxx" or Loc = "xxx" Then
                        If GapCount > 10 And GapCount < 100 Then
                            GAP = Ucase(Loc) & Ucase(Category) & "0" & GapCount
                            Label1.Text += "<li>" & GAP & "</li>"
                            m = m + 1
                        Else
                            GAP = Ucase(Loc) & Ucase(Category) & GapCount
                            Label1.Text += "<li>" & GAP & "</li>"
                            m = m + 1
                        End If
                    Else
                        If GapCount > 100 Then
                            GAP = Ucase(Loc) & Ucase(Category) & GapCount
                            Label1.Text += "<li>" & GAP & "</li>"
                            m = m + 1
                        End If
                    End If
                End if
            Loop
        End If

strPrevious = CInt(Right(SortArray(i),3))
Next