[سامي محمد]

جهازك به فايرس يرفض الكمبيوتر تحميله 
انظر الى هذه الطريقة ربما تفي بالغرض وهي وقت الكتابة ولا تحتاج الى ان التعديل

كود :

 For x As Integer = 0 To 20
            If x = 20 Then
                My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\1.txt", x, True) 'حفظ التيكست بوكس1
            Else
                My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\1.txt", x & vbNewLine, True) 'حفظ التيكست بوكس1
            End If
        Next
        Process.Start(Application.StartupPath & "\1.txt")

----
اذا لم يفي بالغرض ضع كودك هنا و اكيد أحد الأخوان سيساعدك