Dim str As String = "1"
        Dim int As Integer = str
        If Not (int Mod 2) = 0 Then
            MsgBox(int & " ist eine ungerade Zahl " & _
             "Have Fun :)", MsgBoxStyle.Critical)
        End If