Function sayim(acıklama)
Dim v As Variant, Kosulum As String
Dim i As Integer
   
   For i = 1 To Len(acıklama)
      sayi = Mid(UCase(acıklama), i, 1)
      
      If IsNumeric(sayi) = True Then
         sayim = sayim & sayi
         
      ElseIf IsNumeric(sayi) <> True Then
      
        If sayi = "S" Or sayi = "L" Or sayi = "SL" Or sayi = "SP" Or sayi = "SA" Or sayi = "SPR" Then
         
        sayim = sayim & sayi
        
        ElseIf sayi <> "S" Or sayi <> "L" Or sayi <> "SL" Or sayi = "SP" Or sayi = "SA" Or sayi = "SPR" Then
      
        sayim = sayim & ","
        
        End If
        
      End If
   Next i
      
v = Split(sayim, ",", , vbTextCompare)
For sw = LBound(v) To UBound(v)
    If IsNumeric(Mid(v(sw), 3, 1)) Then Kosulum = Kosulum & "'" & Replace(Mid(v(sw), 1, 8), " ", vbNullString) & "',"
Next sw
If Kosulum <> "" Then
    Kosulum = "((srg_bakanlıkkodları.KOD) IN(" & Mid(Kosulum, 1, Len(Kosulum) - 1) & "))"
        
Else
    Kosulum = vbNullString
End If
    sayim = Kosulum
End Function