Visual basic 数字を指定、終了させる方法

前提・実現したいこと

プログラミング初心者です。数を入力して最大値、最小値、平均値を出します。ただし、0が入力されたら終了する。ですが、一回目に0が入力されたら「０以外の数字を入れてください」と文字が表示され即刻終了する形でプログラムを作りたいのですが、どのように言語を使えばよいですか？
ここに質問の内容を詳しく書いてください。
（例）PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

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

エラーメッセージ

該当のソースコード

ソースコード

試したこと

Imports System.Console

Module Module1
Sub main()
Dim count as long
Dim total as double
Dim min as double
Dim max as double
Dim a as string
Dim number as double

Console.Writeline(“数を入力“)

count = 0
total = 0
min = 0
max = 0
a = ""
number = 0

Do
a = Console.Readline()
Loop until Isnumeric(a) = True
number = CDbl(a)
min = number
max = number

While (number <> 0)

count = count + 1
total = total + number
if (number > max) Then max = number
if (number < min) Then min = number
Do
a = Console.Readline()
Loop until Isnumeric(a) = True
number = CDbl(a)
End While
Console.Writeline(“ 最大は “ & max)
Console.Writeline(“ 最小は“ & min)
If count = 0 Then count = 1
Console.Writeline(“ 平均は “ & total / count)
End Sub
End Moduleここに問題に対して試したことを記載してください。