Sub SetLabelAwesomeText(lab As Label, text As String)
Dim cs As CSBuilder
If text = "" Then
lab.Text = ""
else If Asc(text.CharAt(0)) >= 0xF000 Then 'Starts with a Awesome symbol
lab.Text = cs.Initialize.Typeface(Typeface.FONTAWESOME).Append(text.CharAt(0)).Pop.Typeface(Typeface.DEFAULT).Append(text.SubString(1)).PopAll
Else 'normal text
lab.Text = cs.Initialize.Typeface(Typeface.DEFAULT).Append(text).PopAll
End If
End Sub