Mid Fonksiyonu

Merhaba,

Bende aşağıdaki şekilde bir veri var.Bu veri için MID fonksiyonu kullanıyorum ama sayı 100'ü geçince sorun oldu.Yardım eder misiniz?

01-001-101
02-002-201
03-003-202
""
""
100-003-201

İlk rakamdan itibaren '-' ye kadar olan sayıları almam gerekiyor nasıl yapabilirim?

MID fonksiyonu içinde kaç tane alması gerektiğini bulmak için instr fonksiyonu ile - işaretinin pozisyonunu öğrenip 1 eksik kadar olan miktarı alabilirsiniz 1 haneli rakamlarda 1 tane iki haneli rakamlarda 2 tane üç haneli rakamlarda 3 tane n haneli rakamlarda n tane rakam alabilirsiniz. Kolay gelsin.

Mid([YM_DOK_KODU];1;3)
şeklinde kullanınca kayıtlar şöyle geliyor,

KOD
08-
08-
09-
09-
09-
100
100
100

Ben "-" gelsin istemiyorum.

Yaptım arkadaşlar sizinlede paylaşmak isterim.

KOD: Mid([numbers];1;InStr(1;[numbers];"-")-1)