Hallo! Wäre es nicht einfacher zu überprüfen ob die Zahl, wenn sie durch 2 geteilt ist, ein Komma hat? Also: Dim zahl As Integer = 13 If CStr(zahl/2).Contains(",") Then Msgbox("Ungerade") Else: MsgBox("Gerade") End If Ich weiß, dass das nicht schön ist aber es sollte klappen.