m = CStr(InputBox("ukucajte masu u kilogramima")) h = CStr(InputBox("ukucajte visinu u centimetrima")) If Mid(CStr(3 / 2), 2, 1) = "." Then mm = InStr(1, m, ",", 1): hh = InStr(1, h, ",", 1) If mm > 0 Then m = Left(m, mm - 1) & "." & Right(m, Len(m) - mm) If hh > 0 Then h = Left(h, hh - 1) & "." & Right(h, Len(h) - hh) Else mm = InStr(1, m, ".", 1): hh = InStr(1, h, ".", 1) If mm > 0 Then m = Left(m, mm - 1) & "," & Right(m, Len(m) - mm) If hh > 0 Then h = Left(h, hh - 1) & "," & Right(h, Len(h) - hh) End If m = CSng(m): h = CSng(h) MsgBox "BMI (indeks tjelesne mase) je:" _ & vbCrLf & Round(((m * 1.3) / ((h / 100) ^ 2.5)), 1)