محاسبه حاصل جمع اعداد 1 تا 100

[5hahab]

محاسبه حاصل جمع اعداد 1 تا 100

Private Sub Command3_Click()
Dim a As Single
Dim b As Single
Dim c As Single

a = (InputBox("", ""))
b = (InputBox("", ""))
c = (InputBox("", ""))
Av = (a + b + c)
Print Av

End Sub

میخوام یه if بزارم که اگه بیشتر 100 دادن MSGBOX باز شه و بگه کمتر 100 بدید و مراحل رو از اول انجام بده اون if رو اگر واسم بزارید ممنون میشم
و اینکه چرا خودم if میزارم بعد تهش Goto میزارم همش به goto ایراد میگیره ؟ بعد goto چی باید بزارم دقیقا ؟

[hmbarnamenevis]

Dim a As Single
Dim b As Single
Dim c As Single
Dim Temp As String
Do
If Temp <> "" Then MsgBox "Enter number 1 to 100."
Temp = (InputBox("Number 1:", ""))
a = Val(Temp)
Loop While (a > 100)
Temp = ""
Do
If Temp <> "" Then MsgBox "Enter number 1 to 100."
Temp = (InputBox("Number 2:", ""))
b = Val(Temp)
Loop While (b > 100)
Temp = ""
Do
If Temp <> "" Then MsgBox "Enter number 1 to 100."
Temp = (InputBox("Number 3:", ""))
c = Val(Temp)
Loop While (c > 100)
Av = (a + b + c)
Print Av