Arkadaslar boyle bi program yazım hata veriyor neden acaba ?

Private Sub command1_Click()
Text1.FontBold = Check1.Value
Text1.FontItalic = Check2.Value
Text1.FontUnderline = Check3.Value
Text1.FontStrikethru = Check4.Value
Text1.FontName = Combo1.Text
Text1.FontSize = Combo2.Text
End Sub
Dim i
For i = 8 To 20
Combo2.AddItem i
Next i
Combo2.ListIndex = 0
Combo1.AddItem "arial"
Combo2.AddItem "timesvem roma"


arkadaslar combo içersine 8 den 20 kadar yazılacak birde programda yazan text yazısını boyutu değişecek nasıl yapabilirm acaba hatam nerde???

hangi satırda hangi hatayı aldığını yazarsan daha sağlıklı olur
Private Sub command1_Click()
Combo1.Clear
Combo2.Clear
Combo1.AddItem "arial"
Combo1.AddItem "timesvem roma"
Text1.FontBold = Check1.Value
Text1.FontItalic = Check2.Value
Text1.FontUnderline = Check3.Value
Text1.FontStrikethru = Check4.Value
Combo1.ListIndex = 0
Text1.FontName = Combo1.Text
Dim i
For i = 8 To 20
Combo2.AddItem i
Next i
Combo2.ListIndex = 0
Text1.FontSize = Combo2.Text

End Sub


bu çalışan bir kod
ama ne yapmak istediğin ve hata konusunda bilgi verirsen daha sağlıklı olcaktır.
hataların:
1- Text1.FontName = Combo1.Text satırını combo 1 e eleman eklemeden yapmışsın bu nedenle hata alırsın
2- end sub arada kullanılmıi sonda olması gerekir
3- combo1 listindex değeri vermediinden dolayı Text1.FontName = Combo1.Text satırında hata alırsın

8 ile 20 arasındakı sayılardan birini seçtiğimizde text yazısı büyülüp küçülmüyor onu nasıl düzeltiriz..