What is wrong with the following code to encode the consumer key and secret as base64:
Private Function EncodeBase64(ByVal input As String) As String
Dim data() As Byte
Dim result As String
data = StrConv(input, vbFromUnicode)
result = Application.EncodeBase64(data)
EncodeBase64 = result
End Function