What am I missing to actually generate the .csv file?

Solution for What am I missing to actually generate the .csv file?
is Given Below:

Try
    Dim FieldID As String = TextBox1.Text
    Dim Fd As FieldDescriptor = Loan.Fields(FieldID).Descriptor
    
    Using Fs As System.IO.StreamWriter = System.IO.File.CreateText("out.csv")
        For Each fo As FieldOption In Fd.Options
            Fs.Write(fo.Text)
            Fs.Write(",")
            Fs.Write(fo.Value)
            Fs.WriteLine()
        Next
    End Using
Catch ex As Exception
    ' unexpected error
    MsgBox("Error: " + ex.Message, 48, "Error")
End Try