这不是原创你们懂的，
我只是把网上的各种方法拼凑起来，
写了一个完整的，带稍稍中文的~函数~
亲测效果极好，使用方法傻瓜
多多支持，
我知道Base64对有些东西来说很重要的~
Function Base64编码(ByVal 输入)
Dim b As Byte(), 输出 As String
b = System.Text.Encoding.GetEncoding(-0).GetBytes(输入)
Try
输出 = Convert.ToBase64String(b)
Catch ex As Exception
MsgBox("对不起，发生了错误..." + vbCrLf + "请重试！", 48, "对不起！")
输出 = ""
End Try
Return 输出
End Function
Function Base64解码(ByVal 输入)
Dim 输出 As String, b As Byte()
b = Convert.FromBase64String(输入)
Try
输出 = System.Text.Encoding.GetEncoding(-0).GetString(b)
Catch ex As Exception
MsgBox("对不起，发生了错误..." + vbCrLf + "请重试！", 48, "对不起！")
输出 = ""
End Try
Return 输出
End Function
方法傻瓜，中文函数要素，一看就懂~
VB2010中测试是可以的。
~~~~~~~~~~~~~~~~~~~~~~~~
小达软件出品
QQ：540232834

-_-||怎么没人看看。。。我的影响力如此低么

我看了，不明白你要说什么。

总结的非常到位非常好，十分感谢分享！赞一个！！