For j=0 to i

i=List1.listcount

Option Explicit
 
Dim Directorio As String
 
Private Sub Command1_Click()
    Kill Directorio
End Sub
 
Private Sub List1_Click()
    Directorio = List1.Text
End Sub

Private Sub Form_Load()
    Dim str() As String
    Dim i As Byte
    str = Split(Text1, " ")
    For i = LBound(str) To UBound(str)
        Select Case i
            Case 0
                txtPrimerNombre.Text = str(i)
            Case 1
                txtSegundoNombre.Text = str(i)
            Case 2
                txtPrimerApellido.Text = str(i)
            Case 3
                txtSegundoApellido.Text = str(i)
        End Select
    Next
End Sub

Option Explicit
 
Private Sub Command1_Click()
    Dim n               As Byte
    Dim Repetido        As Byte
    Dim Numero(24)      As Byte
    Dim i               As Byte
    Dim Ordenar         As Boolean
    Dim Aux             As Byte
 
'//Generar los numeros aleatorios no repetidos
    Randomize Timer
    For i = 0 To 24
        n = Rnd * 30
        If i = 0 Then
            Numero(i) = n
        Else
            Repetido = i
            Do
                Repetido = Repetido - 1
                If Numero(i) = Numero(Repetido) Then
                    n = Rnd * 30
                    Numero(i) = n
                    Repetido = i
                End If
            Loop Until Repetido = 0
        End If
    Next i
 
'//Ordenar de menor a mayor
    Ordenar = True
    Do While Ordenar = True
        Ordenar = False
        For i = 0 To 23
            If Numero(i + 1) < Numero(i) Then
                Aux = Numero(i)
                Numero(i) = Numero(i + 1)
                Numero(i + 1) = Aux
                Ordenar = True
            End If
        Next i
    Loop
 
'//Cargar la matriz
    For i = 0 To 24
        If i = 0 Or i = 4 Or i = 6 Or i = 8 Or i = 12 Or i = 16 Or i = 18 Or i = 20 Or i = 24 Then
            Label1(i).Caption = Numero(i)
        End If
    Next i
End Sub

Open "prueba.txt" for Output As #1

Open "C:\prueba.txt" for Output As #1

Private Sub Text1_Change()
    If Val(Text1.Text) <= 99 Then
        Text1.BackColor = vbGreen
    ElseIf Val(Text1.Text) > 99 Then
        Text1.BackColor = vbRed
    End If
End Sub
 

Public Function Cargar_Texto_Con_Onditas(Texto As String, Cantidad As Integer, Relojito As Timer)

Call Cargar_Texto_Con_Onditas("aqui va el texto", CualquierNumero, Timer1)

Public Function Timer_Texto_Con_Onditas(salida As Label)

Call Timer_Texto_Con_Onditas(Label1)