如何将几行代码写在一行中?

fatmingli

dim a,b,c,d as string
a=1
b=2
c=3
d=4

为了节省行数，我想将几行合成一行，可以吗？如何连接？
dim a,b,c,d as string
a=1  b=2  c=3   d=4

Roadbeg

dim a,b,c,d as string : a=1 : b=2 : c=3 : d=4