Dim F As Integer
Dim sInhalt As Sring
Dim aURLs() As String
Dim lCount As Long
 
<font color=green>' Textdatei öffnen und Inhalt auslesen</font>
F = FreeFile
Open "DeineDatei.txt" For Binary As #F
sInhalt = Space(Lof(F))
Get #F, , sInhalt
Close #F
 
<font color=green>' Inhalt in ein Array übertragen</font>
aURLs = Split(sInhalt, vbCrLf)
 
<font color=green>' Anzahl URLs</font>
lCount = UBound(aURLs)

MsgBox aURLs(0)