Dim su As StringUtils
Dim MySmartString As String = $"[Alignment=Center]Bitte ${CreateNamedLink("Anmelden","[URL='https://yourniceurl/']https://yourniceurl[/URL]","#2D8879")}/${CreateNamedLink("Registrieren","[URL='https://yourniceurl/']https://yourniceurl[/URL]","#2D8879")} um ein kommentar zu schreiben[/Alignment]"$
Dim MyBase64String as string = su.EncodeBase64(MySmartString.GetBytes("UTF8"))