Private Sub cmdInput_Click()
  Dim F As Integer
  Dim vNamen As Variant
  Dim text As String
 
   F = FreeFile
  Open "C:Namen.txt" For Input As #F
  Line Input #F, text
  Close #F
 
  vNamen = Split(Text, ",")
  For I = 0 To UBound(vNamen)
    txtEingeleseneNamen(I).Text = vNamen(I)
  Next I
End Sub