Problem mit einem Programm

Hi ich hab nen kleines Programm und hoffe ma das um die Uhrzeit noch Jemand on ist der mir kurz helfen kann.
Also es dreht sich um folgendes ich will nen Programm schreiben was den Bodymassindex ausrechnet.

------------------------------------------------------------------------
Option Explicit
Dim gewicht As Integer
Dim groesse As Integer
Dim bmi As Integer
Private Sub cmd_start_Click()



gewicht = txt_gewicht.Text
groesse = txt_groesse.Text
bmi = lbl_bmi.Caption

bmi = gewicht / (groesse) ^ 2


End Sub

Private Sub cmd_ende_Click()
End
End Sub

------------------------------------------------------------------------

aber wenn ich das Programm ausfrühre und auf Start bzw Ausrechnen klicke dann sagt er immer bei bmi = lbl_bmi.Caption "Typen unverträglich"
nun weiß ich nicht mehr weiter was ich machen kann damit es funktioniert.

 

ok thx funkst musste aber das integer in double ändern sonst kommen falsche werte raus aber sonst geht es thx