Sub FetchAndExportUserData()
Dim sourceWorkbook As Workbook
Dim sourceSheet As Worksheet
Dim sourceRow As Long
Dim userID As String
Dim startDate As String
Dim endDate As String
Dim startFile As String
Dim endFile As String

' Specify the path for the output files
startFile = "C:Output_StartDate.txt"
endFile = "C:Output_EndDate.txt"

' Open or create the output files
Dim startFileNum As Integer
Dim endFileNum As Integer
startFileNum = FreeFile()
endFileNum = FreeFile()
Open startFile For Output As #startFileNum
Open endFile For Output As #endFileNum

End Sub

Help to find solution