[vb6] Txt. Non legge elementi separati da una virgola

[Adrix]

Ragazzi ho un problema con la lettura dei file txt. Uso una RichTextBox e questo codice per la lettura:

Dim Riga As String
Dim NumFile As Integer
NumFile = FreeFile
Open File For Input As NumFile
While Not EOF(NumFile)
Input #NumFile, Riga
LeggiFile = LeggiFile & Riga & vbCrLf
Wend
Close (NumFile)
End Function

Private Sub Command1_Click()
RichTextBox1.Text = LeggiFile(App.Path & "\file.txt")
End Sub

Il mio problema è che non legge correttamente gli elementi separati da una virgola...se ad esempio ho in riga:
pippo,pluto

lui legge:
pippo
pluto

come risolvere questo problema? Ho anche un problema con il salvataggio, uso questo codice:

Dim nuovonome
nuovonome = App.Path & "\file.txt"
RichTextBox1.SaveFile nuovonome

ma il testo mi viene salvato male, ogni riga è preceduta da \par , ci sono 2 righe in più alla fine e questa strana riga di codice all'inizio:
{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\lang1040\f0\fs17

come posso risolvere? perfavore rispondete
grazie e ciao