VBA if～else if をそれぞれ一行で記載する場合の書き方


下記のようにif～else ifを各ブロック1行で記載しておりますが、  
「コンパイラエラー：End ifに対応するifブロックがありません」となってしまいます。  
どのように修正すればよいでしょうか、またはこのような書き方はできないのでしょうか。

[code]

        If value = "1" Then requestType = "01"
        ElseIf value = "2" Then requestType = "12"
        ElseIf value = "3" Then requestType = "14"
        ElseIf value = "4" Then requestType = "16"
        ElseIf value = "5" Then requestType = "18"
        ElseIf value = "6" Then requestType = "19"
        End If
    
[/code]




Thenの後で改行しないとだめなようです。

[code]

        If Value = "1" Then
            requestType = "01"
        ElseIf Value = "2" Then
            requestType = "12"
        ElseIf Value = "3" Then
            requestType = "14"
        ElseIf Value = "4" Then
            requestType = "16"
        ElseIf Value = "5" Then
            requestType = "18"
        ElseIf Value = "6" Then
            requestType = "19"
        End If
    
[/code]

どうしても、条件と実行文を見た目１行にまとめて書きたいなら、以下のように書けばよいと思います。

[code]

        If Value = "1" Then requestType = "01" _
        Else: If Value = "2" Then requestType = "12" _
        Else: If Value = "3" Then requestType = "14" _
        Else: If Value = "4" Then requestType = "16" _
        Else: If Value = "5" Then requestType = "18" _
        Else: If Value = "6" Then requestType = "19"
    
[/code]




Thenの後で改行しないとだめなようです。

[code]

        If Value = "1" Then
            requestType = "01"
        ElseIf Value = "2" Then
            requestType = "12"
        ElseIf Value = "3" Then
            requestType = "14"
        ElseIf Value = "4" Then
            requestType = "16"
        ElseIf Value = "5" Then
            requestType = "18"
        ElseIf Value = "6" Then
            requestType = "19"
        End If
    
[/code]

どうしても、条件と実行文を見た目１行にまとめて書きたいなら、以下のように書けばよいと思います。

[code]

        If Value = "1" Then requestType = "01" _
        Else: If Value = "2" Then requestType = "12" _
        Else: If Value = "3" Then requestType = "14" _
        Else: If Value = "4" Then requestType = "16" _
        Else: If Value = "5" Then requestType = "18" _
        Else: If Value = "6" Then requestType = "19"
    
[/code]

