Функция SetSystemTime Не отрабатывает - System.AccessViolationException не обработано

Option Explicit On
Imports System.Runtime.InteropServices
Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports Microsoft.VisualBasic
.
.
.
.
.
 Structure SYSTEMTIME
        'Public wYear As Short 'Integer
        'Public wMonth As Short 'Integer
        'Public wDayOfWeek As Short 'Integer
        'Public wDay As Short 'Integer
        Public wHour As Short 'Integer
        Public wMinute As Short 'Integer
        Public wSecond As Short 'Integer
        'Public wMilliseconds As Short 'Integer
    End Structure
 
    Private Declare Function SetSystemTime Lib "kernel32" (ByVal newDateTime As SYSTEMTIME) As Long
    Private Shared Sub TimeNew()
        Dim newDateTime As SYSTEMTIME
        Dim twHour As Short 'Integer
        Dim twMinute As Short 'Integer
        Dim twSecond As Short 'Integer
        Dim Strsym As Integer
        Strsym = Len(data) 'проверяем длину строки
        If Strsym <> 7 Then
            twHour = Mid(data, 1, 2)
            twMinute = Mid(data, 4, 2)
            twSecond = Mid(data, 7, 2)
        Else
            twHour = Mid(data, 1, 1)
            twMinute = Mid(data, 3, 2)
            twSecond = Mid(data, 6, 2)
        End If
        'newDateTime.wYear = 2014
        'newDateTime.wMonth = 10
        'newDateTime.wDayOfWeek = 2
        'newDateTime.wDay = 22
        newDateTime.wHour = twHour
        newDateTime.wMinute = twMinute
        newDateTime.wSecond = twSecond
        'newDateTime.wMilliseconds = 10
        On Error Resume Next
 
        SetSystemTime(newDateTime)
 End Sub
.
.
.