Hente fra ini fil

Dim inikanalurl() As String

Private Sub Command1_Click()
Dim FSO As Object, fsoText As Object
Dim inikanalnavn As String, CurLine As String, ValgtURL As String
Dim I As Integer
List1.Clear
I = -1
Set FSO = CreateObject("scripting.filesystemobject")
Set fsoText = FSO.opentextfile (App.Path & "\kanaler.ini")
Do While Not fsoText.atendofstream
    CurLine = fsoText.readline
    If Left(CurLine, 1) = "¤" Then  'Hvis dette er begyndelsen på en entry
        inikanalnavn = fsoText.readline
        I = I + 1
        ReDim Preserve inikanalurl(I)
        inikanalurl(I) = fsoText.readline
        List1.AddItem inikanalnavn
      End If
Loop
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

Private Sub List1_Click()
ValgtURL = inikanalurl(List1.ListIndex)
Text1 = ValgtURL
End Sub

har rettet lidt
inikanalurl er  dimmet global

der kom lidt formeget med, så her er den

Dim inikanalurl() As String

Private Sub Command1_Click()
Dim FSO As Object, fsoText As Object
Dim inikanalnavn As String, CurLine As String, ValgtURL As String
Dim I As Integer
List1.Clear
I = -1
Set FSO = CreateObject("scripting.filesystemobject")
Set fsoText = FSO.opentextfile(App.Path & "\kanaler.ini")
Do While Not fsoText.atendofstream
    CurLine = fsoText.readline
    If Left(CurLine, 1) = "¤" Then  'Hvis dette er begyndelsen på en entry
        inikanalnavn = fsoText.readline
        I = I + 1
        ReDim Preserve inikanalurl(I)
        inikanalurl(I) = fsoText.readline
        List1.AddItem inikanalnavn
      End If
Loop
End Sub

Private Sub List1_Click()
ValgtURL = inikanalurl(List1.ListIndex)
End Sub

Den melder 'Compile Error:' - 'Expected array'

ups. ved
ReDim Preserve inikanalurl(I)

har du husket
Dim inikanalurl() As String

uden for sub

Fandt selv svaret:

Dim FSO As Object, fsoText As Object
Dim inikanalnavn As String, CurLine As String, ValgtURL As String
Dim inikanalurl As String
Dim Test1 As Integer

Private Sub Form_Load()

Set FSO = CreateObject("scripting.filesystemobject")
Set fsoText = FSO.opentextfile(App.Path & "\kanaler.ini")

Do While Not fsoText.atendofstream
    CurLine = fsoText.readline
    If Mid(CurLine, 1, 1) = "¤" Then
        inikanalnavn = fsoText.readline
        inikanalurl = fsoText.readline
        List1.AddItem inikanalnavn
    End If
Loop
fsoText.Close

'Volume
WindowsMediaPlayer1.settings.volume = 100
volume.BorderStyle = ccNone
TempVolume = 100
mute = 0

End Sub

Private Sub List1_Click()

Set FSO = CreateObject("scripting.filesystemobject")
Set fsoText = FSO.opentextfile(App.Path & "\kanaler.ini")
Do While Not fsoText.atendofstream
    CurLine = CStr(fsoText.readline)
    If StrComp(CurLine, CStr(List1.Text)) = 0 Then
        inikanalurl = fsoText.readline
        URL = inikanalurl
    End If
Loop

End Sub

Nu har du selv fundet svaret, men hvis du en anden gang skal benytte INI-filer vil jeg på det stærkeste anbefale at benytte følgende klasse til at håndtere læs- og skrivningsprocessen:
http://www.vbaccelerator.com/home/VB/Code/Libraries/Registry_and_Ini_Files/Easy_Ini_File_Access/cIniFile_Class_zip_CINIFILE_CLS.asp