If couMD > 0 Then
            For i = 0 To couMD - 1
                sckConnection(Index).SendData "MDY" & _ Replace(FoundMatchdays( _
                  i), ".txt", "") & "."
 
 
                If i = couMD - 1 Then
                    sckConnection(Index).SendData "MDE"
                    DoEvents
                    NetLog "Sent MDE..."
                End If
            Next i
 
        Else
            sckConnection(Index).SendData "MD0"
        End If
End If