Dim I as Long
 
      Do While I < maxCount
        Select case tblMaterial.strMaID(I)
        case 'Wert1'
            ' mache eine Aktion
            exit do
        case 'Wert2'
            ' mache etwas anderes
            exit do
        end select
        I = I + 1
      Loop