'If vlan = 3900 Then
'v = (Val(Text6.Text) - 127)
   Select Case v
   Case 0 To 48
   Text11.Text = 0
   Text13.Text = v - 1
   Case 49 To 96
   Text11.Text = 1
   Text13.Text = v - 49
   
   Case 97 To 144
   Text11.Text = 2
   Text13.Text = v - 97
   Case 145 To 191
   Text11.Text = 3
   
   Case 145 To 192
   Text13.Text = v - 145
   
   Case 193 To 240
   Text11.Text = 4
   
   Text13.Text = v - 194
    Case 241 To 288
   Text11.Text = 5
   Text13.Text = v - 241
   Case 289 To 336
   Text11.Text = 6
   Text13.Text = v - 289
   
   Case 337 To 384
   Text11.Text = 9
   Text13.Text = v - 337
   
    Case 385 To 432
   Text11.Text = 10
   Text13.Text = v - 385
   
     Case 433 To 480
   Text11.Text = 11
   Text13.Text = v - 433
   
   Case 481 To 528
   Text11.Text = 12
   Text13.Text = v - 481
   Case 529 To 576
   Text11.Text = 12
   Text13.Text = v - 529
   
   Case Else
MsgBox "Please enter the Valid Inner VLAN !!!...."
Text1.Text = ""
Text3.Text = ""
Text6.Text = ""
Text7.Text = ""
Text11.Text = ""
Text13.Text = ""


   End Select
    
 'ElseIf vlan = 3901 Then
v = (Val(Text6.Text) - 127)

  Select Case v
   Case 0 To 48
   Text11.Text = 0
   Text13.Text = v - 1
   Case 49 To 96
   Text11.Text = 1
   Text13.Text = v - 49
   
   Case 97 To 144
   Text11.Text = 2
   Text13.Text = v - 97
   Case 145 To 191
   Text11.Text = 4
   
Case Else
MsgBox "Please enter the Valid Inner VLAN !! "
Text1.Text = ""
Text3.Text = ""
Text6.Text = ""
Text7.Text = ""
Text11.Text = ""
Text13.Text = ""
End Select

    
    
' ElseIf vlan = 3902 Then
v = (Val(Text6.Text) - 127)
   Select Case v
   Case 0 To 48
   Text11.Text = 0
   Text13.Text = v - 1
   Case 49 To 96
   Text11.Text = 1
   Text13.Text = v - 49
   
   Case 97 To 144
   Text11.Text = 2
   Text13.Text = v - 97
   Case 145 To 191
   Text11.Text = 3
   Text13.Text = v - 145
   Case 192 To 215
   Text11.Text = 4
   Text13.Text = v - 192
   
   Case 216 To 239
   Text11.Text = 5
   Text13.Text = v - 216
   
   Case 240 To 263
   Text11.Text = 6
    Text13.Text = v - 240
    
  'Case Else
MsgBox "Please enter the Valid Inner VLAN !! "
Text1.Text = ""
Text3.Text = ""
Text6.Text = ""
Text7.Text = ""
Text11.Text = ""
Text13.Text = ""
End Select
        
        
        
   ' ElseIf vlan = 3903 Then
v = (Val(Text6.Text) - 127)
   Select Case v
   Case 0 To 48
   Text11.Text = 0
   Text13.Text = v - 1
   Case 49 To 96
   Text11.Text = 2
   Text13.Text = v - 49
   
   Case Else
MsgBox "Please enter the Valid Inner VLAN !!!...."
Text1.Text = ""
Text3.Text = ""
Text6.Text = ""
Text7.Text = ""
Text11.Text = ""
Text13.Text = ""
     End Select
     
 'ElseIf vlan = 3904 Then
v = (Val(Text6.Text) - 127)
  Select Case v
   Case 0 To 48
   Text11.Text = 0
   Text13.Text = v - 1
   Case 49 To 96
   Text11.Text = 1
   Text13.Text = v - 49
   
   Case 97 To 144
   Text11.Text = 2
   Text13.Text = v - 97
   
   Case Else
MsgBox "Please enter the Valid Inner VLAN !!!...."
Text1.Text = ""
Text3.Text = ""
Text6.Text = ""
Text7.Text = ""
Text11.Text = ""
Text13.Text = ""
    End Select
    
' ElseIf vlan = 3905 Then
Select Case v
   Case 0 To 48
   Text11.Text = 0
   Text13.Text = v - 1
   Case 49 To 96
   Text11.Text = 1
   Text13.Text = v - 49
   
   Case 97 To 144
   Text11.Text = 2
   Text13.Text = v - 97
   Case 145 To 191
   Text11.Text = 3
   Text13.Text = v - 145
   Case Else
MsgBox "Please enter the Valid Inner VLAN !!!...."
Text1.Text = ""
Text3.Text = ""
Text6.Text = ""
Text7.Text = ""
Text11.Text = ""
Text13.Text = ""
    End Select
    
    
  ' ElseIf vlan = 3906 Then
v = (Val(Text6.Text) - 127)
   Select Case v
   Case 0 To 48
   Text11.Text = 0
   Text13.Text = v - 1
   Case 49 To 96
   Text11.Text = 1
   Text13.Text = v - 49
   
   Case 97 To 144
   Text11.Text = 2
   Text13.Text = v - 97
   Case Else
MsgBox "Please enter the Valid Inner VLAN 3906!!!...."
Text1.Text = ""
Text3.Text = ""
Text6.Text = ""
Text7.Text = ""
Text11.Text = ""
Text13.Text = ""

    End Select
    
    
    
    