新人求助！关于Text写入TXT保存的问题！

想弄一个自动生成一个TXT文件，
工程里有4个Text   ，
第一个，可编写，字母符号数字
第二个，可编写，字母符号数字
第三个，可编写，纯数字，能递增，
第四个，可变写，纯数字，指数是第三个的递增峰值，（例如：从1开始递增，结束为50,此text就填写50）
最后格式如下：
http://baidu.com/a5/1.txt
http://baidu.com/a5/2.txt
http://baidu.com/a5/3.txt
一直到我定义的峰值
谢谢各位大牛了 ，弄了半天没弄好，

Option Explicit

Private Sub Command1_Click()
Dim FileNumber
Dim num As Integer
FileNumber = FreeFile
    Open "abc.txt" For Output As FileNumber
    For num = 1 To 50
    Print #1, Text1.Text
    Print #FileNumber, "http://baidu.com/" & Text1 & "/" & num & ".txt"""
    Next
        Close #FileNumber
        End Sub

献丑了 。。。