Macro per selezionare dati da un TXT

....
....
Do While Not EOF(1)
    Line Input #1, mText
    If mText <> "" Then '(OPPURE: if mText="/*" then )
        mTesto = Split(mText, ":")
        With Range("A:A")
            Set c = .Find(mTesto(0), LookIn:=xlValues, lookat:=xlPart)
            If Not c Is Nothing Then
                Cells(c.Row, 2) = mTesto(0)
                Cells(c.Row, 3) = mTesto(1)
            End If
        End With
    End If
Loop
....
....