Temp = Text2.Text
    aaabbb = Split(Temp, vbCrLf)
    For Each bbbaaa In aaabbb

    If Option3.Value = True Then
        FormatAddress = Replace(bbbaaa, "thunder://", "")
        bbbccc = DecodeBase64String(FormatAddress)
        cccddd = Replace(bbbccc, "AA", "")
        dddeee = Replace(cccddd, "ZZ", "")
text2.text=dddeee
    End If
next


注:temp变量里的内容大概是这样的:
thunder://QUFmdHA6Ly9nZzpteWdvZEA4LmRvd24uODBzLmNuOjkyMC8wODA2L8bmu8O+q8HpysK8/rK+L8bmu8O+q8HpysK8/rK+XzEubXA0Wlo=
thunder://QUFmdHA6Ly9nZzpteWdvZEA4LmRvd24uODBzLmNuOjkyMC8wODA2L8bmu8O+q8HpysK8/rK+L8bmu8O+q8HpysK8/rK+XzIubXA0Wlo=
thunder://QUFmdHA6Ly9nZzpteWdvZEA4LmRvd24uODBzLmNuOjkyMC8wODA2L8bmu8O+q8HpysK8/rK+L8bmu8O+q8HpysK8/rK+XzMubXA0Wlo=
thunder://QUFmdHA6Ly9nZzpteWdvZEA4LmRvd24uODBzLmNuOjkyMC8wODA2L8bmu8O+q8HpysK8/rK+L8bmu8O+q8HpysK8/rK+XzQubXA0Wlo=
thunder://QUFmdHA6Ly9nZzpteWdvZEA4LmRvd24uODBzLmNuOjkyMC8wODA2L8bmu8O+q8HpysK8/rK+L8bmu8O+q8HpysK8/rK+XzUubXA0Wlo=

为什么我无法把dddeee附值给textbox呢?

附值并没有提示错误...只是没有任何结果
但用print dddeee
却可以把结果打印出来

[[it] 本帖最后由 xykz 于 2008-6-13 00:19 编辑 [/it]]

问题已解决:

Dim FormatAddress As String
Temp = Text2.Text
    aaabbb = Split(Temp, vbCrLf)
    Text2.Text = ""
    For Each bbbaaa In aaabbb

    If Option3.Value = True Then
        FormatAddress = Replace(bbbaaa, "thunder://", "")
        bbbccc = DecodeBase64String(FormatAddress)
        cccddd = Replace(bbbccc, "AA", "")
        dddeee = Replace(cccddd, "ZZ", "")
Text2.Text = Text2.Text & dddeee & vbCrLf
    End If
Next