Dim x As Foo
Dim y As Bar

Set x = New Foo
Set y = x 'Maybe?

Dim x As Foo
Dim y As Bar

Set x = New Foo
'@DirectCast
Set y = x 'no inspection result

'@DirectCast(x, Bar)
Set y = x 'no inspection result

if (foo)
    bar();

if (foo)
{
    bar();
}

Private Sub ExportSourceFiles(ByVal destPath As String)

  Dim localPath As String
  If Right$(destPath, 1) <> "\" Then
    localPath = destPath & "\"
  Else
    localPath = destPath
  End If

  Dim thing As AccessObject
  For Each thing In CurrentProject.AllForms
    Access.Application.SaveAsText acForm, thing.Name, localPath & thing.Name & ".frm"
  Next

  Dim component As VBComponent
  For Each thing In CurrentProject.AllModules
    Set component = Application.VBE.ActiveVBProject.VBComponents(thing.Name)
    Access.Application.SaveAsText acModule, thing.Name, localPath & thing.Name & ToFileExtension(component.Type)
  Next

  For Each thing In CurrentProject.AllReports
    Access.Application.SaveAsText acReport, thing.Name, localPath & thing.Name & ".rpt"

Private Sub ImportSourceFiles(ByVal sourcePath As String)

  Dim localPath As String
  localPath = sourcePath & IIf(Right$(sourcePath, 1) <> "\", "\", vbNullString)

  Dim FSO As FileSystemObject
  Set FSO = New FileSystemObject
  Dim file As String
  file = Dir(localPath)
  While (file <> vbNullString)
    If left$(file, 1) <> "." And file <> "DevTools.bas" Then     'ignore hidden files used for git and this module - it's not pretty
      Select Case LCase(FSO.GetExtensionName(file))
        Case "cls", "bas"

'@TestMethod
Public Sub NamedRangeTable()
    On Error GoTo TestFail

    'Arrange:
    Dim tableInfo As Variant
    tableInfo = Sheet98.ListObjects("MovingNamedRanges").DataBodyRange

    'Act:

    'Assert:
    Dim checkRow As ListRow
    For Each checkRow In Sheet98.ListObjects("MovingNamedRanges").ListRows
        If Not (IsEmpty(checkRow.Range(1, 1)) Or IsEmpty(checkRow.Range(1, 3))) Then
            Dim expectedSheet As String
            expectedSheet = checkRow.Range(1, 2).Value2
            Dim expectedRange As String