Private Sub cmdFindNext_Click()
If txtFind <> "" Then
txtFile.SelStart = txtFile.SelStart + 2
If InStr(txtFile.SelStart, txtFile, txtFind) <> 0 Then
txtFile.SelStart =...
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
Option Explicit
Dim lbl1, lbl2, lbl3
Private Sub cmdStart_Click()
Static I, ii, iii, win
Static f As Integer
Dim rd As Integer
Static Pos As Integer
If cmdStart.Caption = "Start" Then
...