Text in Variable schreiben?

Ich möchte wenn der Eingang = 1 ist den Text "Frei" im LCD haben.
leider steht im LCD 47 bzw 102 als Zahl....

------------------------
Dim Frei As Byte

If Pind.2 = 1 Then
Frei = "frei"
Else
Frei = " "
End If

Locate 2 , 1
Lcd Frei
------------------------
Was mus ich ändern?

Tobias

Hallo,
die Variable frei muss vom Typ String sein, z.B.
Dim frei AS Strong * 10 , wenn sie max, 10 Zeichen hat.

Korrektur: Dim frei As String*10 natürlich ...

Danke - funktioniert super