VBAで足し算ゲームを作成中

Question

VBAで足し算ゲームを作成してたのですが
足し算の後に正解だった場合正解だと出して
不正解だと不正解と記述するゲームを作成してたのですが
どうもどちらの場合も不正解になって困ってます
コードは↓です　よろしくお願いします```VBA

コード

    Dim ranx, rany, kotae, q, x, y As Long
    
    For x = 2 To 6
        Randomize
        ranx = Int((100 - 20 + 1) * Rnd + 20)
        rany = Int((100 - 20 + 1) * Rnd + 20)
        Range("B" & x) = ranx
        Range("C" & x) = rany
        

        
        kotae = ranx + rany
        q = InputBox(ranx & "+" & rany & "=?")
        MsgBox kotae
        MsgBox q
        
        If q = kotae Then
        
         Range("D" & x) = "正解"
         
         Else
         Range("D" & x) = "不正解"
         End If
         Next
         
        End Sub

Answer 1

Dim ranx, rany, kotae, q, x, y As Long

上記の変数宣言ですが、型指定を省略するとVariant型になりますので、ranx, rany, kotae, q, xはVariant型になります。

        ranx = Int((100 - 20 + 1) * Rnd + 20)
        rany = Int((100 - 20 + 1) * Rnd + 20)
       `略
        kotae = ranx + rany

ranx, ranyはInt関数の結果を代入してますので、内部的には数値型となります。

        q = InputBox(ranx & "+" & rany & "=?")

InputBox関数の戻り値は文字列になりますので、qは内部的にはString型になります。

数値型とString型を比較すると常にFalseになります。

Dim x, y
x=123
y="123"
        If q = kotae Then        
            Msgbox "正解"
        Else
            Msgbox "不正解"
        End If

上記は不正解になります。

対策としては、
比較するときに型を数値型にあわせるか、

        If Val(q) = kotae Then

面倒でも型をきちんと宣言しておくのがいいでしょう。

Dim ranx As Long, rany As Long, kotae As String, q As String, x As Long

Answer 2

Debug.Printすりゃ分かりそうなもんだけど半角スペースが入るから正解でもifで同一と判定されず全て不正解となる。
Dim kotae As Stringとでも定義しとけばただの文字列になるので正解は正解と判定される。