USAR INTERRUP?ÃO COM TEXTBOX

BOTTO94 17/03/2015 10:21:05
#445288

Olá pessoal,

Sou novo na programação no VB e gostaria de compartilhar uma dúvida. Estou tentando fazer uma função para armazenamento e posteriormente consulta de dados dentro de um array, utilizando TextBox (com InputBox funciona, mas preciso fazer com TextBox), porém não consigo fazer a interrupção que o InputBox proporciona durante os loops e o programa executa tudo de uma vez. Provavelmente deve ser básica a resolução, mas não consegui entender. Alguém pode dar uma força? Valeu e abaixo segue o código:

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 Erro
vetor(i) = CInt(InputBox([Ô]Digite o valor do vetor desejado[Ô]))
MsgBox ([Ô]Valor Armazenado com sucesso![Ô])
Next i

Erro: Exit Sub
End Sub

Private Sub CommandButton2_Click()
Dim valor As Integer

valor = CInt(InputBox([Ô]Digite a posição que deseja saber o valor[Ô]))
MsgBox ([Ô]O valor dessa posicão é: [Ô] & vetor(valor))

End Sub