Mi lehet a hiba a VB programomban?

Egy ilyen gyakorló program,tojástartó.

Az eredményt a Textbox 3 helyett(Üres helyek) a label 1-re írja ki valamiért

Public Class Form1

Dim tojas As Integer, tojastarto As Byte

Private Sub szamolj_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles szamolj.Click

tojas = TextBox1.Text

Label3.Text = 12 - (tojas Mod 12)

tojastarto = 12 - (tojas Mod 12)

If tojastarto > 0 Then

Label.Text = (tojas \ 12) + 1

Else

Label2.Text = (tojas \ 12)

End If

End Sub

End Class