"Controlla la presenza del carattere CHR$(10) " si ma dei predetti caratteri c'è ne sono uno per ciascuna riga, come faccio a prendere la prima riga.
Il primo che trovi, termina la prima riga, il secondo, la seconda ...

Il meccanismo, appena abbozzato potrebbe essere questo :
codice:
  
    Dim st As Integer, pt As Integer
    Dim Stringa As String
    
    st = 1
    pt = 1
    Do
        ' ....
        pt = InStr(st, Stringone, Chr$(10))
        If pt > 0 Then
           ' Trovata
           Stringa = Mid$(Stringone, st, pt + st)
        End If
        ' ....
    Loop
Ciao,