İlgili modül yapılan eklemede var sadece modüldeki satırlarla 5.mesajdaki satırların aynı olmasını sağlayınız...

öyle yaptım ama yazıları kırmızı yaptı.

Başka bir problem vardır...

Örneğinizin son halini eklermisiniz...

ekledim.

Sizin ekteki modülde yazanlar.....

Function YN(ES As String) As Double



End Function

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

Bunun yerine benim gönderdiğimi yazmanız gerekir....

Hatalarınız....

1.2.satırda hemen End Function var kaldırın...
2.200 sayısı End Function üstünde olacak...

Bunları düzeltiniz....

çok ince işçilik istiyor
oldu teşekkür ederim.