VBA Excel не могу понять в чем ошибка.

[progpas]

Пишу пользовательскую форму, такую чтобы в фаил записывались числа. Последним If открываю фаил и записываю нужное мне число. Вот когда пишу с End If вылазит ошибка "End If without block if", если убрать End If то пишет ошибку "Bad file name or number" и показывает на строку №20. Так в чем ошибка? Заранее Спасибо за помощь .
1 Dim fnum, i, nod, A, N, c As Integer
2 Dim snod, k, m As String
3
4 k = tex1.Text
5 A = Val(k)
6
7 m = tex2.Text
8 N = Val(m)
9
10 fnum = FreeFile
11
12 For i = 1 To N
13 c = A
14 While c <> i
15 If c > i Then c = c - i Else: i = i - c
16 nod = c
17 snod = Str(c)
18 Wend
19 If nod = 1 Then Open TextBox1.Text For Output As fnum
20 Print #fnum, snod
21 Close fnum
22 End If
23
24 Next i

[doober]

Скорее всего так должно быть

 19 If nod = 1 Then 
 20  Open TextBox1.Text For Output As fnum
 21 Print #fnum, snod
 22 Close fnum
 23 End If

[progpas]

Так пробовал, только эксель зависает очень сильно и ничего не происходит. Приходиться его закрывать потом.