Public Sub CreateNamedLink(name As String,url As String,color As String) As String
Return $"[b][url="${url}"][color=${color}]${name}[/color][/url][/b]"$
End Sub
BBCodeView1.Text = $"[Alignment=Center]Bitte ${CreateNamedLink("Anmelden","https://yourniceurl","#2D8879")}/${CreateNamedLink("Registrieren","https://yourniceurl","#2D8879")} um ein kommentar zu schreiben[/Alignment]"$