Android Question Problems with font awesome encoding

Dim cs As CSBuilder
lblScreen.Text = cs.Initialize.Typeface(Typeface.FONTAWESOME).Append(Chr(0xF0A4)).Pop.Typeface(Typeface.DEFAULT).Append(" Töne").PopAll

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