Base64をデコードする

Dim base64 As String = "5b6z5bed5a625bq3QUJD"
Dim value As String = System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(base64))

Debug.WriteLine(value) '徳川家康ABC

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

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

Dim base64 As String = "k7+Q7InGjU5BQkM="
Dim value As String = System.Text.Encoding.GetEncoding("Shift_JIS").GetString(Convert.FromBase64String(base64))

Debug.WriteLine(value) '徳川家康ABC

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

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

Dim base64 As String = "WyJBcHBsZSIsIlx1NUZCM1x1NURERFx1NUJCNlx1NUVCNyIsIjEyMzQ1Il0="
Dim json As String = System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(base64))

'values は "Apple", "徳川家康", "12345" を要素に持つリストになります。
Dim values As List(Of String) = System.Text.Json.JsonSerializer.Deserialize(Of List(Of String))(json)

'リストの要素を , で結合して1つも文字列として出力します。
Debug.WriteLine(String.Join(",", values)) 'Apple,徳川家康,12345

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

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

Dim base64 As String = "EjRWeJq83vA="
Dim bytes() As Byte = Convert.FromBase64String(base64)

'バイト型の配列を16進数表記の文字列で出力します。
Debug.WriteLine(Convert.ToHexString(bytes)) '123456789ABCDEF0

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