Making HTML files.

[Jmacp]

i made a slight mistake , added or modified the coloured lines,

Option Explicit
 
Private Sub Command1_Click()
 
Dim strArr() As String
Dim i As Integer
Dim intFile As Integer
Dim strText As String
 
[COLOR=DarkRed]Dim strTxtOld As String[/COLOR]
 
    intFile = FreeFile()
    
    Open App.Path & "\words.txt" For Input As #intFile
      strArr = Split(Input$(LOF(intFile), intFile), vbNewLine)
    Close #intFile
    
    Open App.Path & "\stuff.txt" For Input As #intFile
     strText = Input$(LOF(intFile), intFile)
    Close #intFile
    
    [COLOR=DarkRed]strTxtOld = strText[/COLOR]
    
    For i = LBound(strArr) To UBound(strArr)
        Open App.Path & "\" & strArr(i) & ".html" For Output As #intFile
        
        [COLOR=DarkRed]strText = Replace(strTxtOld, "Wild Card", strArr(i))
        Doevents[/COLOR]
 
        Print #intFile, strText
        Close #intFile
        
    Next i
 
End Sub