Private Sub Foo()
    'some code
    On Error GoTo errhand

    wb.Connections(queryName).Refresh

    Main.ReturnedStartDate

    Main.ResizeExtract

    Exit Sub

errhand:
    'other code

    Resume
End Sub

Dim year As String: year = input.Substring(0, 4)

declare @inputDate as nvarchar(12) = '201908291250'
declare @year as nvarchar(4) = substring(@inputDate, 1, 4)
declare @month as nvarchar(2) = substring(@inputDate, 5, 2)
declare @day as nvarchar(2) = substring(@inputDate, 7, 2)
Declare @hours as nvarchar(2) = substring(@inputDate, 9, 2)
declare @minutes as nvarchar(2) = substring(@inputDate, 11, 2)

select convert(datetime, @year + '-' + @month + '-' + @day + ' ' + @hours + ':' + @minutes, 20)

'---------------------------------------------------------------------------------
Public Sub ButtonUpdateAll()

    ' Collect Workbook and Worksheets
    Set wb = ActiveWorkbook

// AnnotationBase
public virtual bool IsValid(IReadOnlyList<string> arguments)
{
  // default to true
  return true;
}

        var cursor = response.GetNextPageCursor();
        while (!string.IsNullOrEmpty(cursor))
        {
            _logger.Trace($"Response header yielded a page cursor. Requesting next page.");
            response = _request.RequestItems(cursor, args);
            content = response.GetContent();
            items.Union(content.Items);
            cursor = response.GetNextPageCursor();
        }

CREATE   FUNCTION [dbo].[StripCharactersFromString]
(
    @String NVARCHAR(MAX),
    @MatchExpression VARCHAR(255)
)
RETURNS NVARCHAR(MAX)
AS
BEGIN
    SET @MatchExpression =  '%['+@MatchExpression+']%'

    WHILE PatIndex(@MatchExpression, @String) > 0
        SET @String = Stuff(@String, PatIndex(@MatchExpression, @String), 1, '')

    RETURN @String

END
GO