Vierkant: formuliercode

Met een wizard
De zijde wordt ingelezen via een tekstvak.
If Not IsNumeric(Text1.Text) Then Exit Sub
Dim v As New Vierkant
v.Zijde = Text1.Text
lblDisplay.Caption = "Het vierkant heeft een zijde van " & v.Zijde & vbCrLf & "De oppervlakte is " & v.Oppervlakte & vbCrLf & "De omtrek is " & v.Omtrek, , "VB Vierkanten"
Zonder wizard kunnen we niet zo maar de eigenschap zijde instellen, maar gebruiken we een methode om die zijde instellen. Zie de code van de klasse om te zien hoe dat gebeurt.
Dim b As String
Do
b = InputBox("Geef de zijde van het nieuwe vierkant")
Loop Until IsNumeric(b)
Dim v As New Vierkant
v.schrijfZijde (CInt(b))
b = "Ik heb een vierkant gemaakt" & vbCrLf
b = b & "De zijde is " & v.leesZijde & vbCrLf
b = b & "De omtrek is " & v.leesOmtrek & vbCrLf
b = b & "De oppervlakte is " & v.leesOppervlakte
lblToon.Caption = b
Toch nog niet helemaal tevreden: ik zou willen controleren dat de zijde correct is, nl. een geheel getal groter dan nul. IsNumetric is in dat geval niet genoeg, en ik zou kunnen doen:
Dim b As String
Do
    b = InputBox("Geef de zijde van het nieuwe vierkant")
Loop Until IsGoedeZijde(b)
...
en deze functie:
Private Function IsGoedeZijde(v As Variant) As Boolean
'het moet een getal zijn
If Not IsNumeric(v) Then
    IsGoedeZijde = False
    Exit Function
End If
'het moet een geheel getal zijn
If Int(v) < CDbl(v) Then
    IsGoedeZijde = False
Exit Function
End If
'het moet een positief getal zijn
If v > 0 Then IsGoedeZijde = True
End Function