Public Sub InitializePayment(emailAddress As String, amount As String) As ResumableSub
Dim requestBody As Map = CreateMap("email": emailAddress, "amount": amount)
Dim job As HttpJob
job.Initialize("", Me)
job.PostString("https://api.paystack.co/transaction/initialize", requestBody.As(String))
job.GetRequest.SetHeader("Authorization", $"Bearer ${SecretKey}"$)
job.GetRequest.SetHeader("Content-Type", "application/json")
Wait For (job) JobDone(job As HttpJob)
If job.Success Then
Log(job.GetString)
End If
job.Release
'Return a Map of the authorization url and reference code
Return CreateMap()
End Sub