Dim ext As String


For i = 0 To List1.ListCount
    
    ext = Right(List1.List(i), 3)
    Select Case ext
        Case "avi": MsgBox "es una peli"
        Case "mp3": MsgBox "es musikita"
    End Select
Next i

Dim Buffer As String
    ws.GetData Buffer
    
    Select Case LCase(Buffer)
        Case "tiempo": timer1 = True: timer2 = True
    End Select

Open App.Path & "\Configuracion.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, cadena
        separa = Split(cadena, ":")
        If separa(0) = "LocalPort" Then Text1.Text = separa(1)
        If separa(0) = "Nombre" Then Text2.Text = separa(1)
    Wend
Close #1

Private Sub Form_Load()
On Error GoTo fuera

Dim cadena As String
Dim separa As Variant

Open App.Path & "\Configuracion.ini" For Input As #1
    While Not EOF(1)
        Line Input #1, cadena
        separa = Split(cadena, ":")
        If separa(0) = "LocalPort" Then Text1.Text = separa(1)
        'Esto solo lee el archivo y lo pone en el programa
    Wend
Close #1

fuera:
End Sub

Private Sub Form_Unload(Cancel As Integer)

Open App.Path & "\Configuracion.ini" For Output As #1
    Print #1, "LocalPort:" & Text1.Text
    'y aki lo escribe al cerrar
Close #1

End Sub

'Tienes k tener 2 form
Private Sub Form_Load()
Me.BorderStyle = 0
Timer1.Interval = 3000 'cuando pasan 3 segundos se cierra
End Sub

Private Sub Timer1_Timer()
Me.Hide
Form2.Show
End Sub