1、if语句的嵌套不是这样用。
应该是这样使用：
If Combo11.Text = "步兵" Then
    Print #1, "MovementZones" + "="; Infantry; ""
elseIf Combo11.Text = "飞机" Then
    Print #1, "MovementZones" + "="; Fly; ""
elseIf Combo11.Text = "战车" Then
    Print #1, "MovementZones" + "="; Destroyer; ""
elseIf Combo11.Text = "船" Then
    Print #1, "MovementZones" + "="; Water; ""
End If

2、实际上，更合适的语句是“情况”语句：
select case Combo11.Text
    case "步兵"
        Print #1, "MovementZones" + "="; Infantry; ""
    case "飞机" 
        Print #1, "MovementZones" + "="; Fly; ""
    case "战车"
        Print #1, "MovementZones" + "="; Destroyer; ""
    case "船"
        Print #1, "MovementZones" + "="; Water; ""
end select

3、注意代码缩进格式的应用。虽然不影响运行，但对阅读和修改很重要。

逻辑错误.

老大徒伤悲真厉害呀,态度也很认真!