อายครูไม่รู้วิชา อายพอลล่า ไม่ แอ้ม คาระวะ ผู้อาวุโสทุกท่าน ขอความอนุเคราะห์

Dim vent1
  vent1= mid(vent,43,1) 
 Select Case vent1
   case "0"
   vent1=0
   case "1"
   vent1=1 
   case "2"
   vent1=2
   case "3"
   vent1=3
   case "4"
   vent1=4
   case "5"
   vent1=5
   case "6"
   vent1=6
   case "7"
   vent1=7
   case "8"
   vent1=8
   case "9"
   vent1=9
   case "A"
   vent1=10
   case "B"
   vent1=11
   case "C"
   vent1=12
   case "D"
   vent1=13
   case "E"
   vent1=14
   case "F"
   vent1=15
   Case Else
End Select 
dim vent2
  vent2= mid(vent,44,1)
 Select Case vent2
   case "0"
   vent2=0
   case "1"
   vent2=1 
   case "2"
   vent2=2
   case "3"
   vent2=3
   case "4"
   vent2=4
   case "5"
   vent2=5
   case "6"
   vent2=6
   case "7"
   vent2=7
   case "8"
   vent2=8
   case "9"
   vent2=9
   case "A"
   vent2=10
   case "B"
   vent2=11
   case "C"
   vent2=12
   case "D"
   vent2=13
   case "E"
   vent2=14
   case "F"
   vent2=15
   Case Else
End Select 
dim vent3
  vent3= mid(vent,47,1)
 Select Case vent3
   case "0"
   vent3=0
   case "1"
   vent3=1 
   case "2"
   vent3=2
   case "3"
   vent3=3
   case "4"
   vent3=4
   case "5"
   vent3=5
   case "6"
   vent3=6
   case "7"
   vent3=7
   case "8"
   vent3=8
   case "9"
   vent3=9
   case "A"
   vent3=10
   case "B"
   vent3=11
   case "C"
   vent3=12
   case "D"
   vent3=13
   case "E"
   vent3=14
   case "F"
   vent3=15
   Case Else
End Select 
dim vent4
  vent4= mid(vent,48,1)
 Select Case vent4
   case "0"
   vent4=0
   case "1"
   vent4=1 
   case "2"
   vent4=2
   case "3"
   vent4=3
   case "4"
   vent4=4
   case "5"
   vent4=5
   case "6"
   vent4=6
   case "7"
   vent4=7
   case "8"
   vent4=8
   case "9"
   vent4=9
   case "A"
   vent4=10
   case "B"
   vent4=11
   case "C"
   vent4=12
   case "D"
   vent4=13
   case "E"
   vent4=14
   case "F"
   vent4=15
   Case Else
End Select 
 main=vent1*16^1+vent2*16^0
 mainsub=vent3*16^1+vent4*16^0