Запись значений в DAT файл - VB

Формулировка задачи:

Иметься необходимость записи значения одной переменной и нескольких известных значений в DAT файл. DAT файл будет состоять из 3 колонок. Весь цикл измерения составляет 2000 строк 80 секунд измерения, с каждым новым измерением происходит дозапись в файл. В 1 колонку записывается 0 (номер измерения)- с каждым циклом измерения увеличивается на 1 Во 2 колонку записывается 0,5 (шаг измерения) с каждым циклом измерения увеличивается на 0,5 , но только один раз в начале цикла измерения, в следующим измерении он должен составить уже 1 и так далее (с каждым циклом, состоящим из 2000 строк) В 3 колонку записываются значения переменной (kVoltage * LastValue). В приведённом ниже коде, производиться запись в файл: (номер измерения 0 и 0,5 шаг измерения и значение переменной (kVoltage * LastValue). Как решить программно, чтобы номер значение измерения и шага увеличивались с каждым запуском цикла( дозапись в файл) ?. с 0 на 1 и 0,5 на 1 и так далее ( причём значения в 1 колонке записывались бы весь цикл, а значения 2 колонки только 1 раз в начале.

Dim Профиль As Integer = 0
                        If CDbl(SurveyName) = 0 Then
                            Using FS As New FileStream("data.dat", FileMode.Append, FileAccess.Write, FileShare.Inheritable)
                                Using SW As New StreamWriter(FS)
                                    SW.WriteLine(Профиль.ToString & ",0.5," & ((kVoltage * LastValue(i)).ToString(DecimalString, Globalization.CultureInfo.InvariantCulture) & vbTab))
                                End Using
                            End Using
                        End If

Прилагаю пример как должно быть, всем спасибо.

Решение задачи: «Запись значений в DAT файл»

textual
                            Листинг программы 
                        

                             For i = 1 To NumChannels
                    Dim Профиль As Integer = 0
                    If CDbl(SurveyName) = 0 Then
                        Using FS As New FileStream("data.dat", FileMode.Append, FileAccess.Write, FileShare.Inheritable)
                            Using SW As New StreamWriter(FS)
                                SW.WriteLine(Профиль.ToString & ",0.5," & ((kVoltage * LastValue(i)).ToString(DecimalString, Globalization.CultureInfo.InvariantCulture) & vbTab))
                            End Using
                        End Using
                    End If
                Next
                        