ник: snipe
вызывать функцию
например такую
Public Function fff(asd As String) As String
Dim dfg As Long
dfg = Nz(Replace(asd, "Item", ""), 0)
Select Case dfg
Case 0: fff = ""
Case 1 To 10: fff = "первая часть"
Case 11 To 20: fff = "вторая часть"
Case 21, 24, 27: fff="третья часть"
Case Else: fff = "четвертая часть"
End Select
End Function