'グローバル変数
Dim qnum As Long'問題番号

'クリエイトイベント
SetDlgItemText(hMainWnd,CommandButton1,"○")
SetDlgItemText(hMainWnd,CommandButton2,"☓")
SetDlgItemText(hMainWnd,Staric1,Ex"問題¥n改行はこうします")
qnum=1


'答えのチェックルーチン
Sub AnsCheck(ans As Long)
If qnum=1 Then
If ans=1 Then
MessageBox(hMainWnd,"正解","",MB_OK)
Else
MessageBox(hMainWnd,"不正解","",MB_OK)
End If

qnum=qnum+1
End Sub


'コマンドボタン１のクリック時イベント
AnsCheck(1)

'コマンドボタン２のクリック時イベント
AnsCheck(0)


結構適当に書きました。
まあ、動くと思います。

If qnum=1 Then
If ans=1 Then
MessageBox(hMainWnd,"正解","",MB_OK)
Else
MessageBox(hMainWnd,"不正解","",MB_OK)
End If

を、増やしていけば問題が増えます。

If qnum=2 Then
If ans=1 Then
MessageBox(hMainWnd,"正解","",MB_OK)
Else
MessageBox(hMainWnd,"不正解","",MB_OK)
End If

If qnum=3 Then
If ans=1 Then
MessageBox(hMainWnd,"正解","",MB_OK)
Else
MessageBox(hMainWnd,"不正解","",MB_OK)
End If

ちなみに、ansが1（○をクリックしたとき）の時に正解にしていますが、
MessageBox関数を書き換えれば、逆転もできます。