Compare an object to a type?

Type tFare(TableID Int, FareDate As Long, AddingNew As Boolean)
Type tShift(TableID Int, ShiftDate As Long, AddingNew As Boolean

Sub Save(obj as Object, thistype As String)
    If thistype="fare" Then
        Dim f As tFare
        If f.AddingNew Then
'add a new fare
        Else
'update existing fare
        End If
    Else If thistype="shift" Then
        dim s as tShift
        s = obj
        If s.AddingNew Then
'add a new shift
        Else
'update existing shift
        End If
    End If
End Sub

Dim Fare As tFare
Dim Shift As tShift

    Fare.Initialize
    Fare.TableID = 3
    Fare.FareDate = DateTime.Now
    Fare.AddingNew = True

    Save(Fare,"fare")

If obj Is tFare then
 dim t As tFare
 t = obj
 ...