>1

Dim i As Integer

i = InputBox("本日の感染者数を入力してください", "感染者数報告")

If 1 = 0 Then
 Label1.Text = "安倍ちゃんサイコー"
Else
 Label1.Text = "安倍辞めろ"
End If