Sub hantei(ByVa1 Index As Integer, _
　　　　　　ByVa1 No As Integer, _
　　　　　　ByVa1 Fname As String)

ん？