※最大値を示すMAX_NUMという記号定数が定義されているものとします

If intMembersCount > MAX_NUM Then
　MsgBox "値が最大値を超えているので、最大値で処理を続けます"
　intMembersCount = MAX_NUM
　txtMembersCount.Text = CStr(MAX_NUM)
End If