If, ElseIf statements (multiple)

[Formula11]

Is it possible to have an ElseIf statement on a single line?
An example is shown but each statement is on two lines.

Tried the following but did not work.

If IsInArray(Character, Array01) = True Then: Increment = 1

Function Size(Character As String) As Double
    Dim Increment As Double
    If IsInArray(Character, Array01) = True Then
        Increment = 1
    ElseIf IsInArray(Character, Array02) = True Then
        Increment = 1
    ElseIf IsInArray(Character, Array03) = True Then
        Increment = 5 / 6
    ElseIf IsInArray(Character, Array04) = True Then
        Increment = 2 / 3
    ElseIf IsInArray(Character, Array05) = True Then
        Increment = 1 / 2
    ElseIf IsInArray(Character, Array07) = True Then
        Increment = 1 / 3
    ElseIf IsInArray(Character, Array08) = True Then
        Increment = 1 / 6
    Else
        Increment = 1
    End If
    Size = Increment
End Function

 

[Fluff]

You could us a Select Case statement like

   Select Case True
      Case IsInArray(Character, Array01): Increment = 1
      Case IsInArray(Character, Array02): Increment = 1
      Case IsInArray(Character, Array03): Increment = 5 / 6
   End Select

 

[Formula11]

Hi. Thanks this worked perfectly.

 

[Fluff]

You're welcome & thanks for the feedback