Dim strDato As String
    Dim archivo As String
    archivo = App.Path & ".\prueba.txt"
    Open archivo For Input As #1
    For i = 0 To ?? <- no se que poner aqui :(
        Input #1, strDato
        frmOpciones!lstSpyware.AddItem strDato
    Next i
    Close #1 

Private Sub Command1_Click()

Open "C:\hola.txt" For Binary As #1
    Dim Todo As String   'Aki guardamos el contenido de todo el archivo
    Todo = Space(LOF(1)) 'Definimos todo como todo el archivo xDD
    Get #1, , Todo
Close #1

MsgBox Todo 'Como veras se extrae todo correctamente

Dim Linea As Variant 'En esta matriz guardamos todas las lineas separadas
Linea = Split(Todo, vbCrLf) 'Partimos el contenido de todo el archivo por el final de linea

Dim n As Integer
For n = 0 To UBound(Linea) 'Desde la linea 0 hasta la del final
List1.AddItem Linea(n)
Next n

End Sub