caricare parte di testo

[donini]

Ciao a tutto il forum e buon anno

Tramite il codice che ho postato carico un database con dati provenienti da un file txt , quello che non mi riesce di fare è caricare una parte di testo per esempio i primi 5 caratteri , leggendo qualche post ho letto che devo usare la funzione Mid ma non so come si usa ,mi date una mano

Private Sub AggiornaORE() 
    Dim FileNum as Integer
    On Error GoTo fine
    FileNum = FreeFile ' ottiene un numero di file libero
    Open "C:\programmi\Kronotech\lancioni2.txt" For Input As #FileNum
    Do
        Input #FileNum, linea
        CN.Execute "INSERT INTO ore (orelav) VALUES ('" & linea & "')"
    Loop Until EOF(1) = True

    Close #FileNum

    Exit Sub
fine:
    Close #FileNum
    MsgBox Err.Description
End Sub