수다닷컴

Private Sub Command1_Click()
Do
Dim mp As String
Dim Tmp() As String
Tmp = Split(Text1.Text, vbNewLine)
If mp = Then
mp = 0
End If
If Tmp(mp) = Then
Exit Sub
End If
If Not Tmp(mp) = Then
Dim Temp() As String
Temp = Split(Tmp(mp), ,)
If Temp(0) = Show Then
MsgBox Temp(1)
mp = Val(mp) + Val(1)
End If
End If
Loop
End Sub이런 소스가 있는데, 저기 박스친 부분에첨자 사용이 잘못되었다고 오류가 나네요.String으로 선언한 거는 Tmp() 요안에 들어갈 수 없는건가요?그럴 수 없다면 해결 방법을 알려주셨으면 합니다..
그리고 하나 더 질문하고 싶은게 있는데요.저런식으로 했을 때 다시 Loop 할때 저 Dim ~ As String 부분은 다시 선언되나요?

신청하기