Private Sub CmdProveri_Click()
    Dim broj As Double
    broj = TekstBroj.Text

    If broj Mod 2 = 0 Then
        TekstDeljivo.Text = "Ja"
    Else
        TekstDeljivo.Text = "Nein"
    End If
End Sub