علاوه بر فرمایش جناب آقا مهدی ، تابع Split هم کارایی جالبی دارد وبا اجرای (getSection([cod],3 می توان نتیجه مشابه و وبا تغییر عدد هرقسمتی را جدا کرد.
Public Function getSection(strSearch As String, Section As Integer) As String
Dim workTb() As String
workTb = Split(strSearch, "-")
getSection = workTb(Section - 1)
End Function
پاسخ با نقل قول