Sub ReadText()
    
     Filename = "W:\Drawings\SolidWorks Templates\Macros\Paint Spec.txt"
    Open Filename For Input As #1
    Do While (Not EOF(1))
        ' In this case the file is delimited by , and contains several lines
    ' Read the file one line at the time
    Input #1, streng
    
    lastrow = Range("A1048576").End(xlUp).Row
        If Sheet1.Cells(lastrow, 1).Value <> "" Then
            lastrow = lastrow + 1
        End If
    Sheet1.Cells(lastrow, 1) = streng
    
    Loop
    Close #1
End Sub

Sub WriteToExcel(StrArray)

    lastrow = Range("A1048576").End(xlUp).Row + 1
     'For j = LBound(StrArray) To UBound(StrArray)
       Sheet1.Cells(lastrow, 1) = streng
    'Next

End Sub