Private Sub Command2_Click()
    MsgBox pTime.Data(wDay) & "." & pTime.Data(wMonth) & "." & pTime.Data(wYear) & " " & _
      pTime.Data(wHour) & "." & pTime.Data(wMinute) & "." & pTime.Data(wSecond)
End Sub

Private Sub Command2_Click()
    Dim NationalDT As String
    Dim AccessDT As String
    NationalDT = GetMyRegionalDateTime(pTime.Data(wDay), pTime.Data(wMonth), pTime.Data(wYear), _
      pTime.Data(wHour), pTime.Data(wMinute), pTime.Data(wSecond))
    If Now > NationalDT Then
        'прибавляем сутки
        NationalDT = DateAdd("d",  1 , CDate(NationalDT))
    End If
    AccessDT = GetMyAccessDateTime(NationalDT)
    MsgBox NationalDT & vbCrLf & AccessDT
End Sub

Public Function GetMyRegionalDateTime(wDay As Integer, wMonth As Integer, wYear As Integer, _
  wHour As Integer, wMinute As Integer, wSecond As Integer) As String
    Dim date_tempDate As String, date_tempTime As String 'дата/время в формате тек.OS
    date_tempDate = DateSerial(wYear, wMonth, wDay)
    date_tempTime = TimeSerial(wHour, wMinute, wSecond)
    GetMyRegionalDateTime = date_tempDate & " " & date_tempTime
End Function

Public Function GetMyAccessDateTime(regionalDateTime As String) As String
    GetMyAccessDateTime = ""
    If IsDate(regionalDateTime) Then
        GetMyAccessDateTime = "#" & Format$(regionalDateTime, "mm\/dd\/yyyy hh:mm:ss") & "#"
    End If
End Function

Dim pTime As cDateTimePicker 

Public Function Create(ByVal hParent As Long, _
...
    'Call mDateTimePicker.SetDTPProc(Me)
Public Sub Destroy()                                                                    ' Закрытие
    'Call mDateTimePicker.DelDTP(Me)

    OldWindowProc = SetWindowLong(hWndUpDown_toTextVB, GWL_WNDPROC, _
        AddressOf NewWindowProc)

Public Function NewWindowProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case Msg
        Case WM_LBUTTONDOWN
            'Debug.Print "WM_LBUTTONDOWN"
            Form1.TextVB.SetFocus
        Case WM_LBUTTONUP
            'Debug.Print "WM_LBUTTONUP"
            Form1.TextVB.SelStart =  0 
            Form1.TextVB.SelLength = Len(Form1.TextVB.Text)
        Case Else
    End Select

    NewWindowProc = CallWindowProc( _
        OldWindowProc, hWnd, Msg, wParam, _
        lParam)
End Function