Function VolkanThickness(inch As String, sch As String) As String
Dim boruTablosu As Variant
Dim i As Integer
Dim found As Boolean
boruTablosu = Array( _
Array("0,25", "10", ""), _
Array("0,25", "20", ""), _
Array("0,25", "30", ""), _
Array("0,25", "40", "2,24"), _
Array("0,25", "STD", "2,24"), _
Array("0,25", "60", ""), _
Array("0,25", "80", "3,02"), _
Array("0,25", "XS", "3,02"), _
Array("0,25", "100", ""), _
Array("0,25", "120", ""), _
Array("0,25", "140", ""), _
Array("0,25", "160", ""), _
Array("0,25", "XXS", ""), _
Array("0,5", "10", ""), _
Array("0,5", "20", ""), _
Array("0,5", "30", ""), _
Array("0,5", "40", "2,77"), _
Array("0,5", "STD", "2,77"), _
Array("0,5", "60", ""), _
Array("0,5", "80", "3,73"), _
Array("0,5", "XS", "3,73"), _
Array("0,5", "100", ""), _
Array("0,5", "120", ""), _
Array("0,5", "140", ""), _
Array("0,5", "160", "4,78"), _
Array("0,5", "XXS", "7,47"), _
Array("0,75", "10", ""), _
Array("0,75", "20", ""), _
Array("0,75", "30", ""), _
Array("0,75", "40", "2,87"), _
Array("0,75", "STD", "2,87"), _
Array("0,75", "60", ""), _
Array("0,75", "80", "3,91"), _
Array("0,75", "XS", "3,91"), _
Array("0,75", "100", ""), _
Array("0,75", "120", ""), _
Array("0,75", "140", ""), _
Array("0,75", "160", "4,78"), _
Array("0,75", "XXS", "7,47"), _
Array("1", "10", ""), _
Array("1", "20", ""), _
Array("1", "30", ""), _
Array("1", "40", "3,38"), _
Array("1", "STD", "3,38"), _
Array("1", "60", ""), _
Array("1", "80", "4,55"), _
Array("1", "XS", "4,55"), _
Array("1", "100", ""), _
Array("1", "120", ""), _
Array("1", "140", ""), _
Array("1", "160", "6,35"), _
Array("1", "XXS", "9,09"), _
Array("1,25", "10", ""), _
Array("1,25", "20", ""), _
Array("1,25", "30", ""), _
Array("1,25", "40", "3,56"), _
Array("1,25", "STD", "3,56"), _
Array("1,25", "60", ""), _
Array("1,25", "80", "4,85"), _
Array("1,25", "XS", "4,85"), _
Array("1,25", "100", ""), _
Array("1,25", "120", ""), _
Array("1,25", "140", ""), _
Array("1,25", "160", "6,35"), _
Array("1,25", "XXS", "9,70"), _
Array("1,5", "10", ""), _
Array("1,5", "20", ""), _
Array("1,5", "30", ""), _
Array("1,5", "40", "3,68"), _
Array("1,5", "STD", "3,68"), _
Array("1,5", "60", ""), _
Array("1,5", "80", "5,08"), _
Array("1,5", "XS", "5,08"), _
Array("1,5", "100", ""), _
Array("1,5", "120", ""), _
Array("1,5", "140", ""), _
Array("1,5", "160", "7,14"), _
Array("1,5", "XXS", "10,16"), _
Array("2", "10", ""), _
Array("2", "20", ""), _
Array("2", "30", ""), _
Array("2", "40", "3,91"), _
Array("2", "STD", "3,91"), _
Array("2", "60", ""), _
Array("2", "80", "5,54"), _
Array("2", "XS", "5,54"), _
Array("2", "100", ""), _
Array("2", "120", ""), _
Array("2", "140", ""), _
Array("2", "160", "8,74"), _
Array("2", "XXS", "11,07"), _
Array("2,5", "10", ""), _
Array("2,5", "20", ""), _
Array("2,5", "30", ""), _
Array("2,5", "40", "5,16"), _
Array("2,5", "STD", "5,16"), _
Array("2,5", "60", ""), _
Array("2,5", "80", "7,01"), _
Array("2,5", "XS", "7,01"), _
Array("2,5", "100", ""), _
Array("2,5", "120", ""), _
Array("2,5", "140", ""), _
Array("2,5", "160", "9,52"), _
Array("2,5", "XXS", "14,02"), _
Array("3", "10", ""), _
Array("3", "20", ""), _
Array("3", "30", ""), _
Array("3", "40", "5,49"), _
Array("3", "STD", "5,49"), _
Array("3", "60", ""), _
Array("3", "80", "7,62"), _
Array("3", "XS", "7,62"), _
Array("3", "100", ""), _
Array("3", "120", ""), _
Array("3", "140", ""), _
Array("3", "160", "11,13"), _
Array("3", "XXS", "15,24"), _
Array("4", "10", ""), _
Array("4", "20", ""), _
Array("4", "30", ""), _
Array("4", "40", "6,02"), _
Array("4", "STD", "6,02"), _
Array("4", "60", ""), _
Array("4", "80", "8,56"), _
Array("4", "XS", "8,56"), _
Array("4", "100", ""), _
Array("4", "120", ""), _
Array("4", "140", ""), _
Array("4", "160", "13,49"), _
Array("4", "XXS", "17,12"), _
Array("5", "10", ""), _
Array("5", "20", ""), _
Array("5", "30", ""), _
Array("5", "40", "6,55"), _
Array("5", "STD", "6,55"), _
Array("5", "60", ""), _
Array("5", "80", "9,53"), _
Array("5", "XS", "9,53"), _
Array("5", "100", ""), _
Array("5", "120", "12,70"), _
Array("5", "140", ""), _
Array("5", "160", "15,88"), _
Array("5", "XXS", "19,05"), _
Array("6", "10", ""), _
Array("6", "20", ""), _
Array("6", "30", ""), _
Array("6", "40", "7,11"), _
Array("6", "STD", "7,11"), _
Array("6", "60", ""), _
Array("6", "80", "10,97"), _
Array("6", "XS", "10,97"), _
Array("6", "100", ""), _
Array("6", "120", "14,27"), _
Array("6", "140", ""), _
Array("6", "160", "18,26"), _
Array("6", "XXS", "21,95"), _
Array("8", "10", ""), _
Array("8", "20", "6,35"), _
Array("8", "30", "7,04"), _
Array("8", "40", "8,18"), _
Array("8", "STD", "8,18"), _
Array("8", "60", "10,31"), _
Array("8", "80", "12,70"), _
Array("8", "XS", "12,70"), _
Array("8", "100", "15,09"), _
Array("8", "120", "18,09"), _
Array("8", "140", "20,62"), _
Array("8", "160", "23,01"), _
Array("8", "XXS", "22,22"), _
Array("10", "10", ""), _
Array("10", "20", "6,35"), _
Array("10", "30", "7,80"), _
Array("10", "40", "9,27"), _
Array("10", "STD", "9,27"), _
Array("10", "60", "12,70"), _
Array("10", "80", "15,09"), _
Array("10", "XS", "12,70"), _
Array("10", "100", "18,26"), _
Array("10", "120", "21,44"), _
Array("10", "140", "25,40"), _
Array("10", "160", "28,58"), _
Array("10", "XXS", "25,40"), _
Array("12", "10", ""), _
Array("12", "20", "6,35"), _
Array("12", "30", "8,38"), _
Array("12", "40", "10,31"), _
Array("12", "STD", "9,53"), _
Array("12", "60", "14,27"), _
Array("12", "80", "17,48"), _
Array("12", "XS", "12,70"), _
Array("12", "100", "21,44"), _
Array("12", "120", "25,40"), _
Array("12", "140", "28,58"), _
Array("12", "160", "33,34"), _
Array("12", "XXS", "25,40"), _
Array("14", "10", "6,35"), _
Array("14", "20", "7,92"), _
Array("14", "30", "9,53"), _
Array("14", "40", "11,13"), _
Array("14", "STD", "9,53"), _
Array("14", "60", "15,09"), _
Array("14", "80", "19,05"), _
Array("14", "XS", "12,70"), _
Array("14", "100", "28,83"), _
Array("14", "120", "27,79"), _
Array("14", "140", "31,75"), _
Array("14", "160", "35,71"), _
Array("14", "XXS", ""), _
Array("16", "10", "6,35"), _
Array("16", "20", "7,92"), _
Array("16", "30", "9,53"), _
Array("16", "40", "12,70"), _
Array("16", "STD", "9,53"), _
Array("16", "60", "16,66"), _
Array("16", "80", "21,44"), _
Array("16", "XS", "12,70"), _
Array("16", "100", "26,19"), _
Array("16", "120", "30,96"), _
Array("16", "140", "36,52"), _
Array("16", "160", "40,49"), _
Array("16", "XXS", ""), _
Array("18", "10", "6,35"), _
Array("18", "20", "7,92"), _
Array("18", "30", "11,13"), _
Array("18", "40", "14,27"), _
Array("18", "STD", "9,53"), _
Array("18", "60", "19,05"), _
Array("18", "80", "23,83"), _
Array("18", "XS", "12,70"), _
Array("18", "100", "29,36"), _
Array("18", "120", "34,92"), _
Array("18", "140", "39,69"), _
Array("18", "160", "45,24"), _
Array("18", "XXS", ""), _
Array("20", "10", "6,35"), _
Array("20", "20", "9,53"), _
Array("20", "30", "12,70"), _
Array("20", "40", "15,09"), _
Array("20", "STD", "9,53"), _
Array("20", "60", "20,62"), _
Array("20", "80", "26,19"), _
Array("20", "XS", "12,70"), _
Array("20", "100", "32,54"), _
Array("20", "120", "38,10"), _
Array("20", "140", "44,45"), _
Array("20", "160", "50,01"), _
Array("20", "XXS", ""), _
Array("22", "10", "6,35"), _
Array("22", "20", "9,53"), _
Array("22", "30", "12,70"), _
Array("22", "40", ""), _
Array("22", "STD", "9,53"), _
Array("22", "60", "22,23"), _
Array("22", "80", "28,58"), _
Array("22", "XS", "12,70"), _
Array("22", "100", "34,92"), _
Array("22", "120", "41,28"), _
Array("22", "140", "47,62"), _
Array("22", "160", "53,98"), _
Array("22", "XXS", ""), _
Array("24", "10", "6,35"), _
Array("24", "20", "9,53"), _
Array("24", "30", "14,27"), _
Array("24", "40", "17,48"), _
Array("24", "STD", "9,53"), _
Array("24", "60", "24,61"), _
Array("24", "80", "30,96"), _
Array("24", "XS", "12,70"), _
Array("24", "100", "38,89"), _
Array("24", "120", "46,02"), _
Array("24", "140", "52,30"), _
Array("24", "160", "59,54"), _
Array("24", "XXS", ""), _
Array("26", "10", "7,92"), _
Array("26", "20", "12,70"), _
Array("26", "30", ""), _
Array("26", "40", ""), _
Array("26", "STD", "9,53"), _
Array("26", "60", ""), _
Array("26", "80", ""), _
Array("26", "XS", "12,70"), _
Array("26", "100", ""), _
Array("26", "120", ""), _
Array("26", "140", ""), _
Array("26", "160", ""), _
Array("26", "XXS", ""), _
Array("28", "10", "7,92"), _
Array("28", "20", "12,70"), _
Array("28", "30", "15,88"), _
Array("28", "40", ""), _
Array("28", "STD", "9,53"), _
Array("28", "60", ""), _
Array("28", "80", ""), _
Array("28", "XS", "12,70"), _
Array("28", "100", ""), _
Array("28", "120", ""), _
Array("28", "140", ""), _
Array("28", "160", ""), _
Array("28", "XXS", ""), _
Array("30", "10", "7,92"), _
Array("30", "20", "12,70"), _
Array("30", "30", "15,88"), _
Array("30", "40", ""), _
Array("30", "STD", "9,53"), _
Array("30", "60", ""), _
Array("30", "80", ""), _
Array("30", "XS", "12,70"), _
Array("30", "100", ""), _
Array("30", "120", ""), _
Array("30", "140", ""), _
Array("30", "160", ""), _
Array("30", "XXS", ""), _
Array("32", "10", "7,92"), _
Array("32", "20", "12,70"), _
Array("32", "30", "15,88"), _
Array("32", "40", "17,48"), _
Array("32", "STD", "9,53"), _
Array("32", "60", ""), _
Array("32", "80", ""), _
Array("32", "XS", "12,70"), _
Array("32", "100", ""), _
Array("32", "120", ""), _
Array("32", "140", ""), _
Array("32", "160", ""), _
Array("32", "XXS", ""), _
Array("34", "10", "7,92"), _
Array("34", "20", "12,70"), _
Array("34", "30", "15,88"), _
Array("34", "40", ""), _
Array("34", "STD", "9,53"), _
Array("34", "60", ""), _
Array("34", "80", ""), _
Array("34", "XS", "12,70"), _
Array("34", "100", ""), _
Array("34", "120", ""), _
Array("34", "140", ""), _
Array("34", "160", ""), _
Array("34", "XXS", ""), _
Array("36", "10", "7,92"), _
Array("36", "20", "12,70"), _
Array("36", "30", "15,88"), _
Array("36", "40", "19,05"), _
Array("36", "STD", "9,53"), _
Array("36", "60", ""), _
Array("36", "80", ""), _
Array("36", "XS", "12,70"), _
Array("36", "100", ""), _
Array("36", "120", ""), _
Array("36", "140", ""), _
Array("36", "160", ""), _
Array("36", "XXS", ""))
found = False
For i = 0 To UBound(boruTablosu)
If boruTablosu(i)(0) = inch And boruTablosu(i)(1) = sch Then
VolkanThickness = boruTablosu(i)(2)
found = True
Exit Function
End If
Next i
If Not found Then
VolkanThickness = "Bulunamadı"
End If
End Function