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