Public Function EncodeB64Fast(ByVal EingabeString As String) As String
  Dim Bits As String
  Dim nBits As String
  Dim nEncBits As String
  Dim iByte(0 To 2) As Byte, oByte(0 To 2) As Byte
 
    If Ready = False Then Init
 
    For i = 1 To Len(EingabeString) - (Len(EingabeString) Mod 3) Step 3
      iByte(0) = Asc(Mid$(EingabeString, i, 1))
      iByte(1) = Asc(Mid$(EingabeString, i + 1, 1))
      iByte(2) = Asc(Mid$(EingabeString, i + 2, 1))
 
      EncodeB64Fast = EncodeB64Fast & _
                      Chr$(Base64Tab((iByte(0) \ 4) And &H3F)) & _
                      Chr$(Base64Tab(((iByte(0) And &H3) * 16) Or ((iByte(1) \ _
                      16) And &HF))) & _
                      Chr$(Base64Tab(((iByte(1) And &HF) * 4) Or ((iByte(2) \ _
                      64) And &H3F))) & _
                      Chr$(Base64Tab((iByte(2) And &H3F)))
    Next i
 
    If Len(EingabeString) Mod 3 = 1 Then
      iByte(0) = Asc(Mid$(EingabeString, Len(EingabeString), 1))
      iByte(1) = 0
 
      EncodeB64Fast = EncodeB64Fast & _
                      Chr$(Base64Tab((iByte(0) \ 4) And &H3F)) & _
                      Chr$(Base64Tab(((iByte(0) And &H3) * 16) Or ((iByte(1) \ _
                      16) And &HF))) & _
                      Chr$(61) & _
                      Chr$(61)
    ElseIf Len(EingabeString) Mod 3 = 2 Then
      iByte(0) = Asc(Mid$(EingabeString, Len(EingabeString) - 1, 1))
      iByte(1) = Asc(Mid$(EingabeString, Len(EingabeString), 1))
      iByte(2) = 0
 
      EncodeB64Fast = EncodeB64Fast & _
                      Chr$(Base64Tab((iByte(0) \ 4) And &H3F)) & _
                      Chr$(Base64Tab(((iByte(0) And &H3) * 16) Or ((iByte(1) \ _
                      16) And &HF))) & _
                      Chr$(Base64Tab(((iByte(1) And &HF) * 4) Or ((iByte(2) \ _
                      64) And &H3F))) & _
                      Chr$(61)
    End If
End Function