Sub GenerateSign(client_id As String, access_token As String, timestamp As String, secret As String) As String
Dim key As String = secret
Dim message As String = client_id & access_token & timestamp
Dim m As Mac 'UNKNOWN TYPE ERROR
Dim k As KeyGenerator 'UNKNOWN TYPE ERROR