Base64にエンコードする

Dim value As String = "徳川家康ABC"
Dim base64 As String = Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(value))
Debug.WriteLine(base64) '5b6z5bed5a625bq3QUJD

→ Debug.WriteLineが表示される場所

#If NETCOREAPP Then
'.NET CoreでShift_JISなど追加のエンコーディングを扱うために必要です。
System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncodingProvider.Instance)
#End If

Dim value As String = "徳川家康ABC"
Dim base64 As String = Convert.ToBase64String(System.Text.Encoding.GetEncoding("Shift_JIS").GetBytes(value))
Debug.WriteLine(base64) 'k7+Q7InGjU5BQkM=

→ Debug.WriteLineが表示される場所

オブジェクトの一例として、List(Of String) をBase64にする例。

Dim values As New List(Of String)({ "Apple","徳川家康","12345" })

Dim json As String = System.Text.Json.JsonSerializer.Serialize(values)
Dim base64 As String = Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(json))

'WyJBcHBsZSIsIlx1NUZCM1x1NURERFx1NUJCNlx1NUVCNyIsIjEyMzQ1Il0=
Debug.WriteLine(base64)

→ Debug.WriteLineが表示される場所

メモ：この例ではオブジェクトをJSON形式で文字列化したものをBase64にしています。

メモ：List(Of String)に限らず、JsonSerializerでJSON化できるオブジェクトはこの例が通用します。

Dim bytes() As Byte = {&H12, &H34, &H56, &H78, &H9A, &HBC, &HDE, &HF0}

Dim base64 As String = Convert.ToBase64String(bytes)
Debug.WriteLine(base64) 'EjRWeJq83vA=

→ Debug.WriteLineが表示される場所