Try
Code:
Private Sub Command1_Click()
Dim i As Long
  Open "c:\URL.txt" For Output As #1
    For i = 0 To cboURL.ListCount - 1
        cboURL.ListIndex = i
        Print #1, cboURL.List(cboURL.ListIndex)
    Next
    Close #1
End Sub