Private Sub Command2_Click()

Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y As String

a = Val(tx01.Text)
b = Val(tx02.Text)
c = Val(tx03.Text)
d = Val(tx04.Text)
e = Val(tx05.Text)
f = Val(tx06.Text)
g = Val(tx07.Text)
h = Val(tx08.Text)
i = Val(tx09.Text)
j = Val(tx10.Text)
k = Val(tx11.Text)
l = Val(tx12.Text)
m = Val(tx13.Text)
n = Val(tx14.Text)
o = Val(tx15.Text)
p = Val(tx16.Text)
q = Val(tx17.Text)
r = Val(tx18.Text)
s = Val(tx19.Text)
t = Val(tx20.Text)
u = Val(tx21.Text)
v = Val(tx22.Text)
w = Val(tx23.Text)
x = Val(tx24.Text)
y = Val(tx25.Text)
Total = a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + p + q + r + s + t + u + v + w + x + y

If a = "H" Then
a = True
If b = "Be" Then
b = True


제가 만들다만 소스인데요..
버튼 2를 누르면 메시지박스가 뜨면서
txt1~25에 알맞은 정답이 들어왔는지 확인하고
개당 4점으로 환산해서 메시지박스에 표시해주고 싶은데..
지금 제가 배운게 없어서 저런식으로 하다가 막혔는데요..
제가궁금한건
1. If a = "H" Then
a = True
이 렇게 정답을 체크하는게 맞는지요?
2. 정답갯수를 뽑아서 점수로 환산하는 법
일단 이두가지만 알아도 조금은 진행 될꺼 같은데
좀 알려주시면 감사하겠습니다..
근데 제 걱정은 저 소스가 말도 안되는 소스인거 같아서..