Mid関数のエラー”プロシージャの呼び出し、または引数が不正です” (ID:81106)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Public Sub Winsock_DataArrival(ByVal bytesTotal As Long) Dim strData As String Dim a As Integer, b As Integer Winsock.GetData strData '受信データをstrdataに格納する Dim i As Integer, j As Integer, k As Integer i = 0 a = 0 b = 0 Do Until a = Null Do While a = 0 i = i + 1 a = InStr(i, strData, "H") Loop j = i + 1 b = InStr(j, strData, "H") Do While b = 0 j = j + 1 b = InStr(j, strData, "H") If b = Null Then Exit Do Loop For k = 1 To 9 If Mid(strData, i + 1, 2) = "0" & k Then Select Case Mid(strData, i + 3, 4) Case "kibo" hanbaigaisha(k).Kibo = Mid(strData, i + 7, j - (i + 7)) 'ここでエラーがでてしまいます！！ Case "info" hanbaigaisha(k).Info = Mid(strData, i + 7, j - (i + 7)) Case "keir" hanbaigaisha(k).Keiretsu = Mid(strData, i + 7, j - (i + 7)) Case "dist" hanbaigaisha(k).Dist = Mid(strData, i + 7, j - (i + 7)) Case "mzai" hanbaigaisha(k).Max_zaiko = Mid(strData, i + 7, j - (i + 7)) Case "zcos" hanbaigaisha(k).Zaiko_cost = Mid(strData, i + 7, j - (i + 7)) Case "mrie" hanbaigaisha(k).Min_rieki = Mid(strData, i + 7, j - (i + 7)) Case "ijih" hanbaigaisha(k).Ijihi = Mid(strData, i + 7, j - (i + 7)) End Select End If Next i = j a = InStr(i, strData, "H") Loop End Sub Ｍｉｄ関数の引数にはちゃんと０以上が入っていると思います。