'§ Text1= original text
'§ Text2= isolated Text
'§ TextIsolate has the value for the condition
'§ (VALUE if isolating on the value of the string)
'§ (LENGTH if isolating on the length of the string)
'§ ComSplit isolates the text
'§ ComClear

.....
                Case 3
                    .INDEX3 = ARRSELidx
                [B]Case 4[/B]
                    .INDEX4 = ARRSELidx
                End Select
            End With
.....

   If i > 0 And i < 10 Then 
      lstBalance.AddItem "0" & i+1 & " - " & X 
    Else

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 20
   If i < 10 Then
      List1.AddItem "0" & i & " - " & i * 10 & "$"
   Else
      List1.AddItem i & " - " & i * 10 & "$"
   End If
Next
End Sub

Private Sub Dirs_Change()
'§ put the filelist on the selected dirlist
   On Error GoTo NO_FOLDER
   Files.Path = Dirs.Path
'§ filter according to the text in the textbox like: ".mp3"
   Files.Pattern = filter.Text
Exit Sub
NO_FOLDER:
   MsgBox ("There is an error on reading the folder")
End Sub

Private Sub Command1_Click()
   With MSChart1
      .Enabled = True
      .Plot.LocationRect.Min.X = -60
      .Plot.LocationRect.Min.Y = -135
   End With
End Sub

   SavePicture Picture2.Image, App.Path & "\test__" & Replace(Replace(Now, "/", "-"), ":", "+") & ".jpg"

Image1.Picture = Picture2.Picture

Select Case True 
Case q2 = 0

Select Case q2
Case 0

MsgBox ("Your score is " & q1 + q2 + q3), vbExclamation + vbOKOnly, "Congrats"
End

Private Function Open_File()
Dim STRTEMP As String
   TextBox.Text = ""
   On Error GoTo Cancel_Function
   With CommonDialog
      .CancelError = True
      .Filter = "Text (.txt)|*.txt"
      .InitDir = Environ$("USERPROFILE") & "\My Documents"