load textfil

Du loader ikke en textfil med commondialogbox, den bruges kun til at finde filen der skal åbnes.

Denne rutine viser commondialogboksen og henter derefter teksten fra filen ind linie for line. Indholdet af tekstfilen vises i en listbox.

Private Sub Command1_Click()
  Dim FilNavn As String
  CommonDialog1.ShowOpen
  FilNavn = CommonDialog1.FileName
 
  Dim intFreeFile As Integer
  Dim strTemp As String
  intFreeFile = FreeFile
 
  Open FilNavn For Input As #intFreeFile
  While Not EOF(intFreeFile)
    Input #intFreeFile, strTemp
    List1.AddItem strTemp
  Wend
  Close #intFreeFile
End Sub

har svaret på et spørgsmål der ligner meget for ikke lang tid siden:
http://www.eksperten.dk/spm/110316

du skal så bare lave om fra

antal = antal + 1
If antal Mod 5 = 0 Then
            Text1.Text = Text1.Text & tekstvariabel & Chr$(13) & Chr$(10)
        End If

til noget i stil med:

antal = antal + 1
Text1.Text = Text1.Text & tekstvariabel & Chr$(13) & Chr$(10)

og lige inden End Sub skriver eksempelvis

msgbox \"jeg har nu hentet \" & antal & \"linjer ind i en tekstbox\"

den største forskel på mit svar og det fra \"kaffe\" er at jeg bruger Line Input og så har jeg ikke vist dig hvordan du bruger commondialog :-)