Quello che ti serve è la funzione Left.
Tra parentesi, un paio di appunti sul codice che hai postato:
  • non inserire direttamente nel codice (hardcoding) il percorso completo di un file: sul PC di un utente il programma potrebbe essere installato in [i]D:\Programmi[i] o in C:\Program Files invece che in C:\Programmi, e in tal caso il programma non funzionerebbe;
  • la linea
    codice:
            CN.Execute "INSERT INTO ore (orelav) VALUES ('" & linea & "')"
    rappresenta un rischio di sicurezza non indifferente: passi al DBMS una linea di un file facilmente modificabile dall'utente senza validarla e senza effettuarne il parsing: e se contenesse valori non validi? O ancora peggio, se venisse sfruttato questo difetto del programma per una SQL Injection?
  • questa linea
    codice:
        Loop Until EOF(1) = True
    anche se per ora potrebbe funzionare è errata, visto che il numero di file aperto non è necessariamente 1, ma è memorizzato in FileNum; inoltre = True non è necessario, quindi:
    codice:
        Loop Until EOF(FileNum)
    .