Dim intBmi As Integer
Dim intGewicht As Integer
 
intGewicht = txtGrösse.Text - 100
 
MsgBox "Zwischen " & intGewicht - intGewicht \ 10 & " und " & intGewicht + _
  intGewicht \ 10 & " KG"
 
intBmi = txtGewicht.Text / (txtGrösse.Text / 100) ^ 2
 
MsgBox intBmi
 
If intBmi > 18 Then
    '...
ElseIf intBmi >= 18 And intBmi <= 27 Then
 
Else
    '...
End If

Klug ist, wer andere durchschaut,
weise, wer sich selbst durchschaut.
[Laotse]