Visual Basic te Combobox ve Label İşlemleri Hakkında

Arkadaşlar selam,
 
Visual basicte bir program yazıyorum
 
If CheckBox1.Checked Then k = 0.8 Else If CheckBox2.Checked Then k = 0.9
bölümünde checkbox yerine comboboxtaki 1 değer seçildiğinde 0.8 2. değer seçildiğinde 0.9 olsun istiyorum ama yapamıyorum.
 
If ik = kilo Then MsgBox("Bravo ideal kilodasnz")
bölümünde ise msgbox yerine mesajın label6 da gösterilmesini istiyorum ama beceremiyorum.
Yardımcı olabilecek arkadaş var mı acaba?
Program kodları
Private
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim boy As Integer, yas As Integer, kilo As Integer, ik As Integer
Dim k As Single
Dim mesaj1 As Char
boy = Val(TextBox2.Text)
yas = Val(TextBox3.Text)
kilo = Val(TextBox5.Text)
If CheckBox1.Checked Then k = 0.8 Else If CheckBox2.Checked Then k = 0.9
ik = (boy - 100 + yas / 10) * k
If ik = kilo Then MsgBox("Bravo ideal kilodasnz")
If ik > kilo Then MsgBox("Zayfsn kilo almalsn")
If ik < kilo Then MsgBox("imansn zayflamalsn")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub