Не могу реализовать класс в VB6

Я пытаюсь реализовать интерфейс на VB6. Я определил класс Cast_Speed ​​ следующим образом ...

Public Function Run_Time() As Long

End Function

и реализацию, подобную этой ...

Option Explicit
Implements Cast_Speed

Public Function Cast_Speed_Run_Time() As Long
    Cast_Speed_Run_Time = 0
End Function

, но попытка его скомпилировать дает «объектный модуль должен реализовать Run_Time» для интерфейса Cast_Speed '. Кто-нибудь может увидеть, что я делаю не так? С моими подпрограммами все в порядке, но у всех функций, которые я пробую, есть эта проблема.