Interruption with TextBox

Question

Hello everybody,
I'm new to programming in VB and would like to share a doubt. I'm trying to make a function for storage and later query data within an array, using TextBox (with InputBox works, but I need to make TextBox), but I can not make the interrupt that the InputBox
provides for the loops and the program performs all of one time. Probably should be the basic resolution, but I could not understand. Can anyone give a force? Thanks and below is the code:
Option Explicit
Dim vetor(1 To 3) As Integer
Private Sub CommandButton1_Click()
Dim i As Integer
i = 1
    For i = 1 To 3
                On Error GoTo Error
                vetor(i) = CInt(InputBox("Type the value"))
                MsgBox ("Successfully stored value!")
    Next i
Error: Exit Sub
End Sub
Private Sub CommandButton2_Click()
Dim value As Integer
    valor = CInt(InputBox("Type the position of the value you want to know"))
    MsgBox ("The value of this position is: " & vetor(value))
End Sub

Answer 1

Hi Botto94,
Welcome to MSDN.
I am afraid that as Renee Culver said, these forums donot support VB6, you could refer to this thread:
Where to post your VB 6 questions
You could consider posting this issue in these forums below:
These forums do not support Visual Basic 6, however there are many third-party support sites that do. If you have a VB6-related question please visit these popular forums:
VB Forums
VB City
Thanks for your understanding.
Best Regards,
Youjun Tang
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.