主题：循环语句的结果做用于设置自定义列表项目,哪里错了?谢谢

For i As Double = 0.1 To -0.01 Step -0.01
     Dim st As String =Format(i,"0.00")
    st = st.Replace(vbcrlf,"|")

    If i = 0.00 Then
        Exit For
    End If
    If e.IsFocusCell Then
        If e.Col.Name = "第二列" Then
            e.Col.ComboList = st
        End If
    End If   
Next