主题：自动输入问题

老师，请问下，当A列的第5个数字是1-3时，B列自动输入“开”，当A列的第5个数字是4-6时，B列自动输入“关”这代码该怎么写，谢谢！

ChangedEdit事件

 

If e.Col.name = "第一列" Then
    If e.text.length >= 5 Then
        Dim d As Double = val(e.text.SubString(4,1))
        If d >= 1 AndAlso d<= 3 Then
            e.Row("第二列") = "开"
        ElseIf d >= 4 AndAlso d <= 6 Then
            e.Row("第二列") = "关"
        Else
            e.Row("第二列") = Nothing
        End If
    End If
End If