Dim variable As datatype = value
Dim var1,var2,... As datatype