CreateNamedLink:
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
usage:
bbcv.Text = "[Alignment=Center]" & "Bitte " & CreateNamedLink("Anmelden","https://yourniceurl","#2D8879") & "/" & CreateNamedLink("Registrieren","https://yourniceurl","#2D8879") & " um ein kommentar zu schreiben" & "[/Alignment]"