Dim strText As String
    Dim intPos1 As Integer
    Dim intPos2 As Integer
    Dim intPos3 As Integer
    
    Open "d:\temp\1.txt" For Input As # 1 
    Do While Not EOF( 1 )
        Line Input # 1 , strText
        intPos1 = InStr(strText, ";")
        intPos2 = InStr(intPos1 +  1 , strText, ";")
        intPos3 = InStrRev(strText, ";")
        Debug.Print Mid(strText, intPos1 +  1 , intPos2 - intPos1 -  1 ) _
          & ";" & Mid(strText, intPos3 +  1 )
    Loop

    Close # 1 

    Dim strText As String
    Dim strOutput As String
    Dim varItems As Variant
    Dim intI As Integer
    
    Open "d:\temp\1.txt" For Input As # 1 
    Do While Not EOF( 1 )
        strOutput = ""
        Line Input # 1 , strText
        varItems = Split(strText, ";")
        For intI = LBound(varItems) +  1  To UBound(varItems) Step  2 
            strOutput = strOutput & ";" & varItems(intI)
        Next intI
        strOutput = Mid(strOutput,  2 )
        Debug.Print strOutput
    Loop

    Close # 1