ab.com コミュニティ

いや～すいません。
別のところが間違っていたのでエラーになってました。
おさわがせいたしました。

#console モードでプログラミングの学習中です。
次のコードに「使い方が不正」と出るのですが、私には、どこがいけないのかがわかりません。どなたか教えてください。[416: は行番号です]

416:Function fun_strBunruiMei(ByVal f_intBunrui As Integer) As String
417: Dim f_intI As Integer 'fun 内のｶｳﾝﾀ用変数
418: For f_intI = 1 To 15 Step 1
419: If f_intBunrui = f_intI Then
420: fun_strBunruiMei = strBunruiMei(f_intI)
421: End If
422: Next
423:End Function

デバックで出るエラーは次のように表示されます。

shitunai_Ver_1_01.abp(416) - "Function" の使い方が不正です
shitunai_Ver_1_01.abp(419) - "f_intBunrui" 無効な識別子です
shitunai_Ver_1_01.abp(420) - "fun_strBunruiMei" 無効な識別子です
shitunai_Ver_1_01.abp(423) - 文法が間違っています

よろしくお願い申し上げます。