VB调试中总出现溢出，该怎么改啊

VB code

Private Sub Form_Load()Dim s1 As StringDim s2 As StringDim s22 As StringDim s3 As StringDim s4 As StringDim LRC() As DoubleMSComm1.PortOpen = Trues2 = "010142000001"s22 = LRC(s2)s1 = ":" + s2 + s22 + Chr$(13) + Chr$(10)MSComm.Output = s1s3 = MSComm1.Inputs4 = Mid$(s, 6, 8)If s4 = "4200FF00" Thenplc = 1Elseplc = 0End IfEnd Sub

[解决办法]
我调试了一下，溢出就在 s22 = LRC(s2) 这条语句上
我是在VB6上调试的，觉得有两个问题：
1 LRC()数组定义了，但这个数组还没有数组元素，理所当然也没有赋值，没有赋值又如何把它的值赋给s2呢？
2 s2 是一个字符串变量，不能作为数组的索引来使用，integer或者long才可以作为索引来使用的吧？

建议：
先确定数组的元素个数，可以使用 redim LRC(22)
给数组赋值，如 LRC(0)=10,LRC(1)=20,LRC(3)=30.....LRC(22)=2.0
再把数组中的一个元素赋值给 S22 ，如：s22=cstr(LRC（1）)