İ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...
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....