Per il progetto che sto sviluppando, utilizzando access, devo leggere determinate righe di un file txt.

il codice che utilizzo è il seguente:

Private Sub RegistraAltezza_Click()

Dim strCartellaProdotti As String
strCartellaProdotti = CurrentProject.Path & "\Cartella_Prodotti\"
Dim CheckEsistefileAltezza As String
CheckEsistefileAltezza = strCartellaProdotti & Me.Codice_EAN & Chr(92) & "altezza.txt"
If Dir(CheckEsistefileAltezza) <> "" Then 'Controlla se esiste un file corretto all'interno della cartella
Call Altezza

Else 'se non esiste
MsgBox "Per registrare le dimensioni è necessario effettuare la misurazione in altezza"
End If

End Sub

Public Sub Altezza()

Dim a As String, filepath As String, linea As Integer, lineadamettereinaltezza01 As Integer

Dim strCartellaProdotti As String
strCartellaProdotti = CurrentProject.Path & "Cartella_Prodotti"

'Scelta delle righe da copiare del .txt
lineadamettereinaltezza01 = 2

filepath = strCartellaProdotti & Me.Codice_EAN & Chr(92) & "altezza.txt"

'Apri e copia le righe del .txt nelle text box
Open filepath For Input As #1
Do Until EOF(1)
Line Input #1, a
linea = linea + 1

If linea = lineadamettereinaltezza01 Then
Me.Altezza01 = a
End If

Loop
Close #1
End Sub [PHP]

Il problema è che il mio file .txt è per es.
"1123"
Ed avendo messo come vincolo la lettura dei soli numeri a causa delle " mi da errore.
Avete dei suggerimenti per completare lo script facendogli leggere solo i numeri??