vb文本编辑器打开代码的问题

colog1.Filter = "文本文件|*.txt"
colog1.ShowSave
fn = colog1.FileName

Open fn For Output As #1
Write #1, s, fontname1, fontsize1, fontbold1, fontitalic1, backclolor1, foreclolor1, underline1, strikethru1
Text1 = s
Close #1
我像这样保存了文件，但打开了却和保存的时候不一样
colog1.Filter = "文本文件|*.txt"
colog1.ShowOpen
Text1.Text = ""
fn = colog1.FileName

Open fn For Input As #1
Do While Not EOF(1)
Line Input #1, s1
s = s & s1 & Chr(13) & Chr(10)
Loop
Text1 = s
这个打开的代码该怎么修改，请教大神

Private Sub Command1_Click()
colog1.Filter = "文本文件|*.txt"
colog1.ShowSave
fn = colog1.FileName
s = "ok"
fontname1 = "simsun"
fontsize1 = 7
fontbold1 = "true"
fontitalic1 = "false"
backclolor1 = "red"
foreclolor1 = "blue"
underline1 = "true"
strikethru1 = "false"
Open fn For Output As #1
Write #1, s, fontname1, fontsize1, fontbold1, fontitalic1, backclolor1, foreclolor1, underline1, strikethru1
Text1 = s
Close #1
'我像这样保存了文件，但打开了却和保存的时候不一样
colog1.Filter = "文本文件|*.txt"
colog1.ShowOpen
Text1.Text = ""
fn = colog1.FileName

Open fn For Input As #1
  Do While Not EOF(1)
    Line Input #1, s1
    s = s & s1 & Chr(13) & Chr(10)
    Loop
Text1 = s
End Sub关键是没有赋值.所有的全部是空.