Workpad är mitt hemmagjorda allt-i-allo-program

1.
Jag håller på med en liten ordbehandlare och jag vill att man ska kunna
välja fontsize genom att skriva fontsizen man vill ha i en textruta(kallad "lilla") och då ändras fontsizen i den stora(kallad "stora")
Det går bra när man skriver nåt, storleken ändras men när man tar bort siffran blir det error. Vad ska jag skriva?
If lilla.text= ???? Then stora.fontsize = 8

2.
Jag har också gjort gardinmenyer där det står några färger (svart, blå röd m.m) och när man väljer en av dem ska backcolorn i stora bli den färgen.
Min kod:
If lista_bakfärg.text=röd Then stora.backcolor=QBColor(12)
If lista_bakfärg.text=blå Then stora.backcolor=QBColor(9)
och några till.

Det går bra med de som jag lagt in i menyerna, där står det bara en kodrad och därför är det inga If eller Then.

3.
Hur ändrar man färgen på texten, jag har samma problem som över med skillnaden att inte heller de som är i menyerna fungerar

1: IsNumeric löser nog ditt problem

If IsNumeric(lilla.text) Then
stora.fontsize = CDbl(lilla.text)
Else
stora.fontsize = 8
End if

2: Gardinmenyer? Menar du en combobox?
Isåfall kan du använda dig av ItemData

If lista_bakfärg.Listindex<>-1 Then
stora.forecolor = lista_bakfärg.ItemData(lista_bakfärg.Listindex)
End if

3: Egenskapen för textfärgen är forecolor

stora.forecolor = &HFF


4: Antagligen stavfel av en av kontrollerna

1:
If Val(lila) < 8 Then
stora.FontSize = 8
Else
stora.FontSize = lila
End If