Сбрасываются значения переменных при наследовании

Public Class Variable_Mod
    Protected regL1 As String = ""
    Protected regL2 As String = ""
    Protected regL3 As String = ""
    Protected regL4 As String = ""
End Class

Public Class c_Query
    Inherits Variable_Mod
    Friend Sub Query_AdminInfo()
        regL1 = dt.Rows(0).Item("Depart_L1").ToString
        regL2 = dt.Rows(0).Item("Depart_L2").ToString
        regL3 = dt.Rows(0).Item("Depart_L3").ToString
        regL4 = dt.Rows(0).Item("Depart_L4").ToString
    End Sub
End Class

Public Class c_WordTabs
    Inherits Variable_Mod
    Public TabsList As New Dictionary(Of String, String)
    Friend Sub Tab()
        TabsList.Add("RegL1", regL1)
        TabsList.Add("RegProps_City__", regL2)
        TabsList.Add("RegProps_Adr__", regL3)
        TabsList.Add("RegProps_Phone__", regL4)
    End Sub
End Class

Inherits Variable_Mod

Dim cWordTabs As New c_WordTabs
Dim cQuery As New c_Query
 
cQuery.Query_AdminInfo()
cWordTabs.Tab()