程序完了后为什么我定义的全局变量imageresolution 等都没值了 调试过程还有的啊 谢谢

While Not ts.AtEndOfStream
rline = ts.ReadLine
If (rline Like "*aa*") Then
rline = Replace(rline, Chr(9), "") '替换制表符tab
rline = Replace(rline, " ", "")
content = Split(rline, "aa")
Dim s1 As String
s1 = content(1)
ElseIf (rline Like "*bb*") Then
rline = Replace(rline, Chr(9), "")
rline = Replace(rline, " ", "")
content = Split(rline, "bb")
imagedate = content(1)
ElseIf (rline Like "*cc*") Then
rline = Replace(rline, Chr(9), "")
rline = Replace(rline, " ", "")
content = Split(rline, "cc")
imageresolution = content(1)
ElseIf (rline Like "*dd*") Then
rline = Replace(rline, Chr(9), "")
rline = Replace(rline, " ", "")
content = Split(rline, "dd")
imagetype = content(1)
End If
wend

会被销毁的哟，要不内存岂不是越来越小了