Bilangan ganjil genap visual basic

Berikut ini adalah salah satu program untuk menentukan bilangan ganjil atau genap menggunakan visual basic.

Option Explicit
Dim a As Single, b As String

Private Sub Command1_Click()
    a = CSng(Text1)
    If a Mod 2 = 0 Then
        b = "genap"
    Else
        b = "ganjil"
    End If
    Text2 = b   
End Sub

Private Sub Command2_Click()
    End
End Sub