REM *** 数当てげーむ ***
randomize

Dim a '今回はメッセージボックスに表示する内容が長いので一旦変数に格納し、プログラムを見やすくします。
a = "*** 数当てげーむ ***" & Chr(13) & "数当てげーむへようこそ。" & Chr(13) & "1～100の数の中から数をあててね。" & Chr(13) & _
  "その数に応じて手掛かりが出るよ。" & Chr(13) & "制限回数:5回" & Chr(13) & "始める?"
if msgbox(a,4,"数当てげーむ") = 6 then
    Dim i
    Dim num 'インプットボックスの値を格納するもの。
    Dim ans '答え。
    Dim msg '手がかりを格納するためのもの。
    msg = ""
    ans = int(rnd() * 100) '1-100の値を作ります。
    for i = 1 to 5
        num = int(inputbox("1-100の数を入力してね。" & Chr(13) & msg,"数あてげーむ " & i & "回目"))
        if num = ans then '正解のときforから抜ける。
            exit for
        end if
        msg = msg & num & ":"
        if int(num / 10) = int(ans / 10) then '十の位が等しいとき
            msg = msg & "十の位正。"
        end if
        if (ans - num = 90) or (ans - num = 80) or (ans - num = 70) or (ans - num = 60) or (ans - num = 50) or _
          (ans - num = 40) or (ans - num = 30) or (ans - num = 20) or (ans - num = 10) or (ans - num = -10) or _
          (ans - num = -20) or (ans - num = -30) or (ans - num = -40) or (ans - num = -50) or (ans - num = -60) or _
          (ans - num = -70) or (ans - num = -80) or (ans - num = -90) then '一の位が等しいとき
            msg = msg & "一の位正。"
        end if
        if num < ans then '小さいとき。
            msg = msg & "ちいさい。"
        else '大きいとき。
            msg = msg & "おおきい。"
        end if
        msg = msg & Chr(13)
    next

    if num = ans then '正解の場合の言葉
        msgbox "あたり!!" & Chr(13) & "おめでとう。" & Chr(13) & i & "回で正解しました。"
    else 'はずれの場合の言葉
        msgbox "5回以内に当てられなかったので残念。" & Chr(13) & "答えは" & ans & "でした。"
    end if
else
    msgbox "終了します。",0,"数当てげーむ"
end if