Código para verificar la selección de un radiobutton y checkboxes mediante un botón visual2008

¿Esto en que lenguaje VB6, VBA, Access?

'Private Sub validar()
'Dim contar2 As Integer
'Dim contar As Integer
' Dim punto As Object
' For Each punto In Me.Controls
' If TypeOf punto Is RadioButton Then
'If punto.checked = False Then
' contar2 = contar + 1
' End If
'End If
'Next
' If contar2 = 3 Then
' MsgBox("debe seleccionar una opcion")
'Exit Sub
' End If

'End Sub

Hise ese código y lo llame en el botón, pero no paso nada