Private Sub cmdAdd_Click()
k = k + 1
If k > 10 Then
MsgBox "Index out off bound!"
k = 10
Exit Sub
End If
a(k) = txtInput
'set focus to txtinput
txtInput.SetFocus
txtInput.SelStart = 0
txtInput.SelLength = Len(txtInput)
End Sub