Excel 2007 Macro VBA lire un fichier texte ligne par ligne comment puis-je arrêter de délimitation sur une virgule (,)

J'ai un simple Excel 2007 Macro qui est de lire un fichier texte ligne par ligne et affichage de la sortie.

Cette macro est la rupture sur des virgules. Je veux qu'il suffit de lire l'intégralité de coupure de ligne sur un carrage retour.

Ce que je fais mal?

Sub Directory()
  Dim strFileName As String
  Dim strDirectory As String
  Dim intFileKey As Integer
  Dim strLine As String

  strDirectory = "C:\Documents and Settings\e1009028\My Documents\embosstest"

  ChDir (strDirectory)

  strFileName = Dir("*.txt")

  Do While Len(strFileName) > 0
    intFileKey = FreeFile
    Open strFileName For Input As intFileKey
    Do While Not EOF(intFileKey)
        Input #intFileKey, strLine
        MsgBox Mid(strLine, 1, 10)
    Loop
    strFileName = Dir
  Loop

End Sub

Voici un exemple de fichier texte:

1 blahblahblabh
2 blah,blahblah

OriginalL'auteur codingguy3000 | 2011-04-18