このVBコードで何が間違っていますか？

Question

Function nameTonumber(name As String) 

    Dim number As Integer 
    number = 0 

    If (name = "Aa") Then 

     number = 1 

    ElseIf (name = "Bb") Then 

     number = 2 

    ElseIf (name = "Cc") Then 

     number = 3 

    Else 

     number = 0 

    End If 

End Function 

Answer 1

変更への最初の行：関数nameTonumber（文字列名）整数

エンド機能の追加上記

として：

nameTonumber =数「あなたはVB6を使用している場合。

戻り値 'VB.NETを使用している場合

Answer 2

1. If条件の括弧は冗長です。
2. Elseは冗長です - numberはすでにゼロです。
3. 値は返されません。
4. 戻り値の型を指定しませんでした。
5. Select Caseを使用すると、このフォームの複数のテストをわずかに読みやすくすることができます。

さらに、これがVB.NETコードの場合はさらに多くなります。

文法上のメモでは、コードが余りにも多くの領域を占有します。不要な空行を削除しても、コードを読みやすくすることはできません。