Glauco,
Não existe uma forma direta, tente assim:
Dim
c
As New Contato
Dim dc As New DataContext
Dim m As Data.Linq.Mapping.MetaType = dc.Mapping.GetMetaType(c.GetType)
Dim dt As Data.Linq.Mapping.MetaDataMember = m.GetDataMember(c.GetType.GetProperty("NomeCampo"))
MessageBox.Show(dt.DbType)