04VBAのIF分岐をドラクエ・メタルスライムで習得!!

Sub IF文1()
     
  '文字列型変数「敵の名前」と数値型変数「攻撃レベル」を宣言
  Dim 敵の名前 As String, 攻撃レベル As Integer

  '変数「敵の名前」に「メタルスライム」を代入
 　敵の名前 = "メタルスライム"

  '攻撃レベルを入力
  攻撃レベル = InputBox("攻撃レベルを入力して下さい。")
       
  　'IF文による分岐 100以上かどうか
       If 攻撃レベル >= 100 Then
         MsgBox 敵の名前 & "を倒した！！  "
       End If
   
   End Sub

Sub IF文2()
     
  '文字列型変数「敵の名前」と数値型変数「攻撃レベル」を宣言
  Dim 敵の名前 As String, 攻撃レベル As Integer

  '変数に代入
  敵の名前 = "メタルスライム"

  '攻撃レベルを入力
  攻撃レベル = InputBox("攻撃レベルを入力して下さい。")
       
    'IF文による分岐 100 以上かどうか
       If 攻撃レベル >= 100 Then
         MsgBox 敵の名前 & "を倒した！！  "
     Else '←ここを修正
        MsgBox 敵の名前 & "は、少しくたばった。"
       End If
   
   End Sub

Sub IF文3()
     
  '文字列型変数「敵の名前」と数値型変数「攻撃レベル」を宣言
  Dim 敵の名前 As String, 攻撃レベル As Integer

  '変数に代入
  敵の名前 = "メタルスライム"

  '攻撃レベルを入力
  攻撃レベル = InputBox("攻撃レベルを入力して下さい。")
       
    'IF文による分岐 100 以上かどうか
       If 攻撃レベル >= 100 Then
         MsgBox 敵の名前 & "を倒した！！  "
       ElseIf 攻撃レベル>=80 Then  '←ここを修正
         MsgBox "勇者頑張れ！！もう一息！！"
       Else
        MsgBox "YOU LOSE...."
       End If
   End Sub

Sub IF文4()
     
  '文字列型変数「ターゲット」と「登場キャラ」を宣言
  Dim ターゲット As String, 登場キャラ As String

  '変数ターゲットに「メタルスライム」を代入
  ターゲット = "メタルスライム"

  '登場キャラを入力
  登場キャラ = InputBox("登場キャラを入力して下さい。")
       
    'IF文による分岐 メタルスライムかどうか
       If 登場キャラ = ターゲット Then
         MsgBox "勇者は" & ターゲット & "を攻撃した！！  "
       Else
        MsgBox 登場キャラ & "さん、こんにちは。"
       End If
   End Sub