gistfile1.vb

Sub Main()
	Dim i As Integer
	Dim result As Integer
	
	result = 1
	
	For i = 1 To 5
		result = result * i
	Next

	If i > 5 Then
		MsgBox(result)
	ElseIf i <= 5 Then
		MsgBox(i)
	Else
		MsgBox(20)
	End If
End Sub