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