全ての寸法に番号バルーンを付ける6

こちらの続きです。
全ての寸法に番号バルーンを付ける5 - C#ATIA
もう、十分な牛歩戦術。

作成するバルーンの先頭番号を入力させますが、当然
自然数でなければNGの為、該当しない入力時は赤文字に切り替え
OKボタンはグレーアウトにする　ぐらいの実装は、
UI嫌いな僕でも行う必要性は感じています。

Form側のCodeです。
先頭番号のテキストボックスはMe.StartNumberで
OKボタンはMe.OkButtonです。

Private Sub StartNumber_Change()

    Dim startNumberBox As TextBox
    Set startNumberBox = Me.StartNumber
    
    If is_natural_number(startNumberBox.text) Then
        'ok
        startNumberBox.ForeColor = &H80000008
        Me.OkButton.Enabled = True
    Else
        'ng
        startNumberBox.ForeColor = &HFF
        Me.OkButton.Enabled = False
    End If

End Sub

'有効な番号か?
Private Function is_natural_number( _
    ByVal txt As String) _
    As Boolean

    is_natural_number = False

    If Len(txt) < 1 Then
        Exit Function
    End If

    If Not IsNumeric(txt) Then
        Exit Function
    End If

    Dim num As Long
    
    On Error Resume Next
    
    If CLng(txt) <> CDbl(txt) Then
        Exit Function
    End If

    On Error GoTo 0

    is_natural_number = True

End Function