Retour à ligne Textbox

Bonjour,
Bon voilà j'ai utilisé ce code :

Private Sub LoadShouts()
Dim a As String

Open "C:\T4C Server\Logs\Shouts.log" For Input As #1
While Not EOF(1)
Input #1, a$
shoutlogs.Text = shoutlogs.Text + vbCrLf + a$
Wend
Close #1

End Sub

Pour récuperer le texte de shouts.log (formatage pareil que .txt), seulement à chaque "," virgule dans une ligne il fait un retour à la ligne. Si vous avez une idée...
J'avais pensé à changer les , par des espaces mais je ne connais pas la syntaxe.

Bonjour
Remplace
Input #1, a$
par
Line Input #1, a$
----------------
Pour Input#, la virgule est un séparateur
Pour Line Input# le séparateur est vbCrLf

Merci beaucoup, je vais essayer ça tout de suite.

Parfait, ça marche très bien, merci encore.