rakamlarda düzenleme yapılması

arkadaşlar aşağıdaki rakamlarda farklı yazımlar var mesela
8A
9 1
87-3
6/B
4
gibi. ben bunları
8
9
87
6
4
olarak düzeltmek istiyorum. yani hücredeki / veya - veya boşluktan önceki kısımlar önemli. tabi başında boşluk olan değerlerdede başındaki boşluk ile ondan sonra gelebilecek / - gibi karakterler arası.
örnek ektedir. şimdiden teşekkürler.

İşinize yarıyormu bakarmısınız...

6-4 sonuç -6
1-5 sonuç -1
normalde 6 ve 1 olmalı.
birde /6 şeklindeki kapı numaralarındada hata verdi

Modülde bulunan

YN = Left(ES, I) satırını
YN = Left(ES, I - 1) olarak değiştiriniz....

-11 gibi başlayan kayıtlar olduğu için modülü aşağıdaki gibi yaparsanız sorun kalmayacaktır.

Function YN(ES As String) As Double

For I = 1 To 30

If Mid(ES, I, 1) < "0" Then GoTo 100

If Mid(ES, I, 1) > "9" Then GoTo 100

Next I

100

If I < 2 Then YN = 0: GoTo 200

YN = Left(ES, I - 1)

200

End Function

modüle ekleyemiyorum