if文で分岐したメッセージが表示できないです

Question

前提・実現したいこと

if文の練習をしています。
うまく分岐したメッセージを表示させたいのですが、どの数値を入れても同じメッセージになります。
Inputboxで入力した数値とIf文がうまく連携できてないと考えてます。

発生している問題・エラーメッセージ

どの数値を入れても「誰の年齢でもありません」とメッセージボックスが表示される

該当のソースコード

Sub test11222()
    Dim i As Long, age As String
        age = InputBox("数値を入力してください")
        age = i
        If i = 10 Then
            MsgBox "あかりの年齢です"
        ElseIf i = 15 Then
            MsgBox "ゆうすけの年齢です"
        ElseIf i = 40 Then
            MsgBox "ママの年齢です"
        ElseIf i = 42 Then
            MsgBox "パパの年齢です"
        Else
            MsgBox "誰の年齢でもありません"
        End If
End Sub

補足情報（FW/ツールのバージョンなど）

Comments

[otn]

i はどこで値を代入しているつもりですか？

Answer 1

数値を入力させて判断したいので、age As String は不要でしょう。
また、現状では、i に何も代入されてませんので、初期値（0）のままです。

Application.InputBoxを使うと数値のみ入力を許可することができます。

Application.InputBox メソッド (Excel) | Microsoft Docs

Sub test11222()
    Dim i As Long
        i = Application.InputBox("数値を入力してください", Type:=1) '数値のみ入力可
        If i = 10 Then
            MsgBox "あかりの年齢です"
        ElseIf i = 15 Then
            MsgBox "ゆうすけの年齢です"
        ElseIf i = 40 Then
            MsgBox "ママの年齢です"
        ElseIf i = 42 Then
            MsgBox "パパの年齢です"
        Else
            MsgBox "誰の年齢でもありません"
        End If
End Sub

Comments

[shu_shu]

age As String は不要とのこと、ありがとうございます。Application.InputBoxの使い方、ありがとうございます。新たな知識が増えました。とても勉強になり嬉しくなりました。

Answer 2

    age = i

これ、逆なんでは

Comments

[shu_shu]

逆で正しく動きました。初歩的なミスでした。コメントありがとうございました。