Visual Basic - archivo lst

hola, tengo un pequeño problema, estoy haciendo un programa que debe mostrar en un combo el contenido de un archivo, pero dicho archivo debe ser .lst, el problema no es el codigo sino que no se como crear el archivo lst si alguien pudiera ayudarme se lo agradeceria

copia esto en un modulo, es para crear modificar y ver archivos, el acceso utilizado es secuencial. ok¿?

Option Explicit

Dim intArchivo As Integer
Dim intInicio As Integer
Dim intFinal As Integer
Dim intLongitud As Integer
Dim strLinea As String
Public strDatos As String
Public fs As Object
Public afs As Object

Public Sub Guardar(strArchivo As String, Modo As Long, strDatos As String)
Select Case Modo
Case 0
intArchivo = FreeFile
Open strArchivo For Output As intArchivo
intInicio = 1
intFinal = InStr(intInicio, strDatos)
Do While intFinal <> 0
intLongitud = intFinal - intInicio + 1
strLinea = Mid(strDatos, intInicio, intLongitud)
Print #intArchivo, strLinea
intInicio = intFinal + 2
intFinal = InStr(intInicio, strDatos)
Loop
strLinea = Mid(strDatos, intInicio)
If strLinea <> "" Then
Print #intArchivo, strLinea
End If
Close intArchivo
Case 1
intArchivo = FreeFile
Open strArchivo For Append As intArchivo
intInicio = 1
intFinal = InStr(intInicio, strDatos)
Do While intFinal <> 0
intLongitud = intFinal - intInicio + 1
strLinea = Mid(strDatos, intInicio, intLongitud)
Print #intArchivo, strLinea
intInicio = intFinal + 2
intFinal = InStr(intInicio, strDatos)
Loop
strLinea = Mid(strDatos, intInicio)
If strLinea <> "" Then
Print #intArchivo, strLinea
End If
Close intArchivo
End Select
End Sub

Public Sub Leer(strArchivo As String)
intArchivo = FreeFile
Open strArchivo For Input As intArchivo
strDatos = ""
Do While Not EOF(intArchivo)
Line Input #intArchivo, strLinea
strDatos = strDatos & strLinea
Loop
Close intArchivo
End Sub

Public Sub NuevoArchivo(strArchivo As String)
Set afs = fs.CreateTextFile(App.Path & "/" & strArchivo, True)
afs.writeline (strDatos) 'Si quieres que guarde algo en el pasa el contenido a strDatos
afs.Close
End Sub

Public Sub PrepareArchivo()
Set fs = CreateObject("Scripting.FileSystemObject")
End Sub

salu2