Private Sub Command1_Click()
    Load SSTab1(1)
    
    SSTab1(1).Visible = True
    
    SSTab1(1).Top = SSTab1(0).Top + SSTab1(0).Height
End Sub

Public Sub OPenFile()
    Dim strCampos() As String, strTextoLinea As String, _
        Archivo As String
    Dim A As Long
    Dim NumArchivo As Integer
    
    Archivo = txtRutaLocal.Text & txtNomArchivo.Text
    NumArchivo = FreeFile()
    
    Open Archivo For Input As #NumArchivo
        Do While Not EOF(NumArchivo)
            Line Input #NumArchivo, strTextoLinea
            strCampos() = Split(strTextoLinea, "|")
            'MsgBox strCampos(0) 'AQUÍ SE CONOCE EL PRIMER REGISTRO
            'AQUÍ SE CREA LA BD CON EL NOMBRE DEL ARCHIVO
            'AQUÍ SE CREA LA TABLA CON EL NOMBRE DEL DATO 0
            For A = 0 To UBound(strCampos) - 1
                strDato = strCampos(A)
                MsgBox strDato
                'AQUÍ SE INSERTAN LOS DATOS EN DICHA TABLA
            Next A
        Loop
    Close #NumArchivo
End Sub

Private Sub Command1_Click()
    Dim Web As Object
    Dim URL As String
    
        URL = "www.microsoft.com"
    
        Set Web = _
            CreateObject("InternetExplorer.Application")
    
    Web.Visible = True
    Web.navigate URL
End Sub

Private Sub Command1_Click()
    Dim X As Integer, Fila As Integer
    
    Dim NumArchivo As Long
    
    Dim Arreglo(4, 0 To 4) As String, Archivo As String
    
    
        Fila = 0
    
        Archivo = "c:\1.txt"
        NumArchivo = FreeFile()
    
    Open Archivo For Output As #NumArchivo
        Write #NumArchivo, "JUAN", "JESÚS", "JAVIER", "JORGE", "JEHÚ"
        
        Write #NumArchivo, "WINDOWS", "LINUX", "MAC_OS", "ATHE_OS", "UNIX"
    Close #NumArchivo
    
    Open Archivo For Input As #NumArchivo
        Do While Not EOF(NumArchivo)
            Input #1, Arreglo(Fila, 0), Arreglo(Fila, 1), Arreglo(Fila, 2), _
                Arreglo(Fila, 3), Arreglo(Fila, 4)
            Fila = Fila + 1
        Loop
    Close #NumArchivo

    For X = 0 To Fila - 1
        If Arreglo(X, 1) = UCase(Text1.Text) Then
            MsgBox Arreglo(X, 0) & " " & Arreglo(X, 1) & _
                " " & Arreglo(X, 2) & " " & Arreglo(X, 3) & _
                " " & Arreglo(X, 4), vbInformation, "Línea encontrada"
        End If
    Next X
End Sub