Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

        Dim GexpirationHelt as string 

        Dim GAtual as string 

         Dim dataComUmDiaAMais As String = Format(Date.Today.AddDays(0), "yyyyMMdd")

        'Fixa horario 

         GexpirationHelt = dataComUmDiaAMais & "11:00:00"

        GAtual=Format(Date.Today,"yyyyMMdd") & Format(Date.Now, "HH:mm:ss")

        Console.WriteLine(GAtual)

        Console.WriteLine(GexpirationHelt)

        console.writeline(Format(Date.Today,"yyyyMMdd") & "11:00:00")

        if GAtual >= GexpirationHelt

            Console.WriteLine("Executa")

        else

            Console.WriteLine("Não Executa")

        end if  

    End Sub

End Module