类型不匹配问题求助

程序源代码如下
Private Sub Command1_Click()
On Error Resume Next
Dim I As Integer
Dim PI(1 To 18) As String
Dim EpI(1 To 18) As String
Dim EuI(1 To 18) As String
Dim ElI(1 To 18) As String
Dim EdI(1 To 18) As String
Dim EI(1 To 18) As String
Dim WuI(1 To 18) As String
Dim WlI(1 To 18) As String
Dim WdI(1 To 18) As String
Dim C As Single
Dim WlM As Single
C = 0.85
WlM = 60
Open "D:\1231.txt" For Input As #1
For I = 1 To 18
Input #1, PI(I)
Next I
Close #1
Open "D:\1232.txt" For Input As #1
For I = 1 To 18
Input #1, EpI(I)
Next I
Close #1
For I = 1 To 18
If WuI(I) + PI(I) >= EpI(I) Then
EuI(I) = EpI(I)
ElI(I) = 0
EdI(I) = 0
End If
Next I
For I = 1 To 18
WuI(1) = 0
WlI(1) = 14.9
WdI(1) = 40
If WuI(I) + PI(I) < EpI(I) And WlI(I) >= C * WlM Then
EuI(I) = WuI(I) + PI(I)
ElI(I) = (EpI(I) - EuI(I)) * WlI(I) / WlM
EdI(I) = 0
End If
Next I
For I = 1 To 18
If WuI(I) + PI(I) < EpI(I) And C * (EpI(I) - EuI(I)) <= WlI(I) <= CWLM Then
EuI(I) = WuI(I) + PI(I)
ElI(I) = C * (EpI(I) - EuI(I)) And EdI(I) = 0
End If
Next I
For I = 1 To 18
If WuI(I) + PI(I) < EpI(I) And WlI(I) < C * (EpI(I) - EuI(I)) Then
Eu = WuI(I) + PI(I)
ElI(I) = WlI(I)
EdI(I) = C * (EpI(I) - EuI(I)) - ElI(I)
End If
Next I
End Sub
在If WuI(I) + PI(I) < EpI(I) And WlI(I) >= C * WlM
出现类型不匹配错误
请高手帮忙