「式が必要です」というエラーが解決できず困っております

前提・実現したいこと

「式が必要です」というエラーが出ているのですが、解決できず困っております。

発生している問題・エラーメッセージ

下記vbファイルの、If文、ElseIf文の行で「式が必要です。」というエラーが出ています。

該当のソースコード

VisualBasic
1（Site1.Master）
2※マスターページです。特に何も変更していません。
3
4<%@ Master Language="VB" AutoEventWireup="false" CodeBehind="Site1.master.vb" Inherits="study.Site1" %>
5
6<!DOCTYPE html>
7
8<html>
9<head runat="server">
10<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
11    <title></title>
12    <asp:ContentPlaceHolder ID="head" runat="server">
13    </asp:ContentPlaceHolder>
14</head>
15<body>
16    <form id="form1" runat="server">
17        <div>
18            <asp:ContentPlaceHolder ID="ContentPlaceHolder1" runat="server">
19            </asp:ContentPlaceHolder>
20        </div>
21    </form>
22</body>
23</html>

VisualBasic
1（butamaru_choice.aspx）
2※aspxファイルです。
3
4<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site1.Master" CodeBehind="butamaru_choice.aspx.vb" Inherits="study.butamaru_choice" %>
5<asp:Content ID="Content1" ContentPlaceHolderID="head" runat="server">
6    <link rel="stylesheet" href="../CSS/butamaru_choice.css" />
7</asp:Content>
8<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" runat="server">
9    <div class="container">
10        <div class="input_area">
11            <asp:TextBox ID="do1" runat="server">やりたいこと①</asp:TextBox>
12            <asp:TextBox ID="do2" runat="server">やりたいこと②</asp:TextBox>
13        </div>
14        <div>
15            <asp:Button ID="Button1" runat="server" Text="決めてもらう" />
16        </div>
17    </div>
18    <asp:Label ID="Label1" runat="server" Text="結果はここに表示されます"></asp:Label>
19</asp:Content>

VisualBasic
1（butamaru_choice.aspx.vb）
2※vbファイルです。
3
4Public Class butamaru_choice
5    Inherits System.Web.UI.Page
6
7    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
8
9    End Sub
10
11    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
12        Dim r As New Random
13        Dim number As Integer = r.Next(1, 2)
14        If number == 1 Then
15            Label1.Text = do1.Text
16        ElseIf number == 2 Then
17            Label1.Text = do2.Text
18        End If
19    End Sub
20
21End Class